diff options
| author | Jacob Pipkin <d4wnr4z0r@yahoo.com> | 2012-05-08 02:26:42 -0500 |
|---|---|---|
| committer | Jacob Pipkin <d4wnr4z0r@yahoo.com> | 2012-05-08 02:26:42 -0500 |
| commit | aec4fa7100b77112f2e74def10e7ccb55da097b0 (patch) | |
| tree | daaeb8f792b5a7b91c54ec5fc3b02582b4961a88 /SBO-Lib/lib/SBO | |
| parent | b1e943c7731906bb2ec37959e8f962acd3922968 (diff) | |
| download | sbotools2-aec4fa7100b77112f2e74def10e7ccb55da097b0.tar.xz | |
more variable name snafus
Diffstat (limited to 'SBO-Lib/lib/SBO')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 72b66ca..c775df1 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -503,8 +503,8 @@ sub rewrite_slackbuild { unless exists $_[1]; my ($slackbuild,%changes) = @_; copy ($slackbuild,"$slackbuild.old"); - tie @sb,'Tie::File',$slackbuild; - FIRST: for (my $line = @arch) { + tie my @sb,'Tie::File',$slackbuild; + FIRST: for (my $line = @sb) { SECOND: for (my ($key,$value) = %changes) { if ($key eq 'out_arch') { if (index ($line,'makepkg') != -1) { |