Bug#187670: tag 187670 + patch

[Josip Rodin <joy@srce.hr>]

On Mon, Apr 07, 2003 at 03:26:31PM -0700, Matt Kraai wrote:
> +	foreach (@field) {
> +		$newpackage{$_} = '';
> +	}

> -			foreach (@field) {
> -				$package{$pack}{$_} = '';
> -			}
> -			$package{$pack}{'source-dir'} = [];
> -			$package{$pack}{'source-files'} = [];
> +			$newpackage{'source-dir'} = [];
> +			$newpackage{'source-files'} = [];

Oh and BTW, shouldn't we replace this simply with a my $newpackage = ();?
Seems easier and cleaner to let Perl clear it out...

-- 
     2. That which causes joy or happiness.