From dc56f242c71989cec820bf44f11cefa38f3158b0 Mon Sep 17 00:00:00 2001
Message-Id: <dc56f242c71989cec820bf44f11cefa38f3158b0.1715655057.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sun, 3 Apr 2005 18:04:20 +0000
Subject: [PATCH] Bodge for strange bug (`bizarre copy of ARRAY in anonlist')
 in Perl 5.8.4.
Organization: Straylight/Edgeware

From: mdw <mdw>

---
 shadowfix | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/shadowfix b/shadowfix
index 0ef99d8..3793a30 100755
--- 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;
-  @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;
@@ -344,7 +344,7 @@ $pw->close;
 $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]) },
@@ -358,7 +358,7 @@ if ($shadow_in) {
   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;
@@ -375,7 +375,7 @@ if ($gshadow_in) {
   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]) },
-- 
[mdw]