diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2018-02-14 07:01:29 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2018-02-14 07:07:42 +0100 |
| commit | 896b0ac9531b0b3bc2f08989a84eed6733e4328a (patch) | |
| tree | 7f6b58ed875ba992d26e3bfc5e42311f57c9b059 /SBO-Lib/lib/SBO/Lib/Tree.pm | |
| parent | 4b938bd0de536ff8222f2e2c6de052fb472db1ea (diff) | |
| download | sbotools2-896b0ac9531b0b3bc2f08989a84eed6733e4328a.tar.xz | |
Strip -compat32 from slackbuild names and make sure to properly return an array reference
This fixes #65
Diffstat (limited to 'SBO-Lib/lib/SBO/Lib/Tree.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib/Tree.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/Lib/Tree.pm b/SBO-Lib/lib/SBO/Lib/Tree.pm index 49997f6..51dbf2c 100644 --- a/SBO-Lib/lib/SBO/Lib/Tree.pm +++ b/SBO-Lib/lib/SBO/Lib/Tree.pm @@ -76,7 +76,7 @@ filesystem once when searching, and populating the internal cache. =cut sub get_sbo_location { - my @sbos = defined $_[0] && ref $_[0] eq 'ARRAY' ? @{ $_[0] } : @_; + my @sbos = map { s/-compat32$//r } defined $_[0] && ref $_[0] eq 'ARRAY' ? @{ $_[0] } : @_; script_error('get_sbo_location requires an argument.') unless @sbos; # if we already have the location, return it now. @@ -95,7 +95,7 @@ package name to its location. =cut sub get_sbo_locations { - my @sbos = defined $_[0] && ref $_[0] eq 'ARRAY' ? @{ $_[0] } : @_; + my @sbos = map { s/-compat32$//r } defined $_[0] && ref $_[0] eq 'ARRAY' ? @{ $_[0] } : @_; script_error('get_sbo_locations requires an argument.') unless @_; my %locations; |