diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-04 10:20:44 -0600 |
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-04 10:20:44 -0600 |
| commit | 04363616393265d572fb59181a1957f15a1124c1 (patch) | |
| tree | c5c846e040fb3159242c57d21866f6a3047ef8a3 | |
| parent | b34346c933cee1a01a3df854becffea2d6f6333b (diff) | |
| download | sbotools2-04363616393265d572fb59181a1957f15a1124c1.tar.xz | |
$loc_store is a reference, call it correctly
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index d3ba865..92c3f4d 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -226,7 +226,7 @@ sub get_sbo_location { state $loc_store = {}; # if scalar context and we've already have the location, return it now. unless (wantarray) { - return $loc_store{$sbos[0]} if exists $loc_store{$sbos[0]}; + return $$loc_store{$sbos[0]} if exists $$loc_store{$sbos[0]}; } my %locations; my $fh = open_read $slackbuilds_txt; @@ -235,9 +235,9 @@ sub get_sbo_location { while (my $line = <$fh>) { if (my $loc = ($line =~ $regex)[0]) { # save what we found for later requests - $loc_store{$sbo} = "$config{SBO_HOME}$loc"; - return $loc_store{$sbo} unless wantarray; - $locations{$sbo} = $loc_store{$sbo}; + $$loc_store{$sbo} = "$config{SBO_HOME}$loc"; + return $$loc_store{$sbo} unless wantarray; + $locations{$sbo} = $$loc_store{$sbo}; } } seek $fh, 0, 0; |