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.

Reply via email to