From 896b0ac9531b0b3bc2f08989a84eed6733e4328a Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Wed, 14 Feb 2018 07:01:29 +0100
Subject: Strip -compat32 from slackbuild names and make sure to properly
 return an array reference

This fixes #65
---
 SBO-Lib/lib/SBO/Lib/Tree.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'SBO-Lib/lib/SBO/Lib/Tree.pm')

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;
-- 
cgit v1.2.3