Bodge for strange bug (`bizarre copy of ARRAY in anonlist') in Perl

5.8.4.

diff --git a/shadowfix b/shadowfix
index 0ef99d8ea301571066aedb6935f6d8519d525f75..3793a306cecbe5303dbf1a4cd93664cc2c21d38a 100755 (executable)
--- a/shadowfix
+++ b/shadowfix
@@ -334,7 +334,7 @@ $gshadow_in = $gshadow unless $gshadow_in;
 $pw = new FileHandle $passwd_in, O_RDONLY or die "open($passwd_in): $!";
 while ($line = $pw->getline) {
   chomp $line;
 $pw = new FileHandle $passwd_in, O_RDONLY or die "open($passwd_in): $!";
 while ($line = $pw->getline) {
   chomp $line;

-  @f = split /:/, $line;
+  my @f = split /:/, $line;

   $#f = 6;
   $a = { data => [ @f ], name => $f[0], uid => $f[2], gid => $f[3] };
   $ubynam{$a->{name}} = $ubyuid{$a->{uid}} = $a;
   $#f = 6;
   $a = { data => [ @f ], name => $f[0], uid => $f[2], gid => $f[3] };
   $ubynam{$a->{name}} = $ubyuid{$a->{uid}} = $a;


@@ -344,7 +344,7 @@ $pw->close;
 $gr = new FileHandle $group_in, O_RDONLY or die "open($group_in): $!";
 while ($line = $gr->getline) {
   chomp $line;
 $gr = new FileHandle $group_in, O_RDONLY or die "open($group_in): $!";
 while ($line = $gr->getline) {
   chomp $line;

-  @f = split /:/, $line;
+  my @f = split /:/, $line;

   $#f = 3;
   $a = { data => [ @f ],
         members => { hashify(split /,/, $f[3]) },
   $#f = 3;
   $a = { data => [ @f ],
         members => { hashify(split /,/, $f[3]) },


@@ -358,7 +358,7 @@ if ($shadow_in) {
   if ($spw = new FileHandle $shadow_in, O_RDONLY) {
     while ($line = $spw->getline) {
       chomp $line;
   if ($spw = new FileHandle $shadow_in, O_RDONLY) {
     while ($line = $spw->getline) {
       chomp $line;

-      @f = split /:/, $line;
+      my @f = split /:/, $line;

       $#f = 8;
       $a = { data => [ @f ], name => $f[0] };
       $subynam{$a->{name}} = $a;
       $#f = 8;
       $a = { data => [ @f ], name => $f[0] };
       $subynam{$a->{name}} = $a;


@@ -375,7 +375,7 @@ if ($gshadow_in) {
   if ($sgr = new FileHandle $gshadow_in, O_RDONLY) {
     while ($line = $sgr->getline) {
       chomp $line;
   if ($sgr = new FileHandle $gshadow_in, O_RDONLY) {
     while ($line = $sgr->getline) {
       chomp $line;

-      @f = split /:/, $line;
+      my @f = split /:/, $line;

       $#f = 3;
       $a = { data => [ @f ],
             members => { hashify (split /,/, $f[3]) },
       $#f = 3;
       $a = { data => [ @f ],
             members => { hashify (split /,/, $f[3]) },