in get_filename_from_link, added only do the substitution if $filename

1 files changed, 2 insertions, 2 deletions

diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm
index 7b9dff7..c7c186b 100644
--- a/SBO-Lib/lib/SBO/Lib.pm
+++ b/SBO-Lib/lib/SBO/Lib.pm
@@ -366,7 +366,7 @@ sub get_filename_from_link ($) {
 	my $fn = shift;
 	my $regex = qr#/([^/]+)$#;
 	my $filename = $fn =~ $regex ? $distfiles .'/'. ($fn =~ $regex)[0] : undef;
-	$filename =~ s/%2B/+/g;
+	$filename =~ s/%2B/+/g if $filename;
 	return $filename;
 }
 
@@ -771,4 +771,4 @@ sub get_build_queue ($$) {
 		 push @build_queue, $sb;
 	}    
 	return \@build_queue;
-}
\ No newline at end of file
+}