From 3dc656d58b4359dc8c54069d83ee52582c3fccde Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 26 Mar 2000 17:24:17 +0000 Subject: no_comment --- build_archive | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'build_archive') diff --git a/build_archive b/build_archive index e2b21f2..b81eea5 100755 --- a/build_archive +++ b/build_archive @@ -103,7 +103,7 @@ sub main { system "cat @filelist | $compress >tmp.z"; $siz1 = -s "tmp.z"; - $data{$_} = [ 'f', $off1, $siz1, $data{$_}[3], $data{$_}[4] ] foreach @filelist; + foreach (@filelist) { $data{$_} = [ 'f', $off1, $siz1, $data{$_}[3], $data{$_}[4] ] } system "cat tmp.z >>$archivename"; $off1 += $siz1; @@ -117,7 +117,7 @@ sub main { system "cat @filelist | $compress >tmp.z"; $siz1 = -s "tmp.z"; - $data{$_} = [ 'f', $off1, $siz1, $data{$_}[3], $data{$_}[4] ] foreach @filelist; + foreach (@filelist) { $data{$_} = [ 'f', $off1, $siz1, $data{$_}[3], $data{$_}[4] ] } system "cat tmp.z >>$archivename"; $off1 += $siz1; -- cgit v1.2.1