From dc2911fc741e36311db8134a2adedb56802f1aa5 Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Sat, 27 Apr 2019 13:30:13 +0200
Subject: sboinstall, Build, Info: Allow ignoring of SBo from reqs that doesn't
 exist

---
 SBO-Lib/lib/SBO/Lib/Build.pm | 3 +++
 SBO-Lib/lib/SBO/Lib/Info.pm  | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'SBO-Lib/lib/SBO')

diff --git a/SBO-Lib/lib/SBO/Lib/Build.pm b/SBO-Lib/lib/SBO/Lib/Build.pm
index f6911a9..7587836 100644
--- a/SBO-Lib/lib/SBO/Lib/Build.pm
+++ b/SBO-Lib/lib/SBO/Lib/Build.pm
@@ -780,6 +780,9 @@ sub _build_queue {
         $warnings->{$sbo}="%README%" if $req eq "%README%";
       }
     }
+    else {
+      $warnings->{$sbo} = "nonexistent";
+    }
     push @result, $sbo;
   }
 
diff --git a/SBO-Lib/lib/SBO/Lib/Info.pm b/SBO-Lib/lib/SBO/Lib/Info.pm
index b79c7fd..dd5b55f 100644
--- a/SBO-Lib/lib/SBO/Lib/Info.pm
+++ b/SBO-Lib/lib/SBO/Lib/Info.pm
@@ -180,7 +180,7 @@ C<get_requires()> returns the requirements for a given C<$sbo>.
 # wrapper to pull the list of requirements for a given sbo
 sub get_requires {
   my $location = get_sbo_location(shift);
-  return [] unless $location;
+  return undef unless $location;
   my $info = get_from_info(LOCATION => $location, GET => 'REQUIRES');
   return $info;
 }
-- 
cgit v1.2.3