diff options
Diffstat (limited to 'build_archive')
| -rwxr-xr-x | build_archive | 4 |
1 files changed, 2 insertions, 2 deletions
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; |