From 2beda783d846ae15763bdee06aa8ddeeecff9fae Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Thu, 4 Oct 2012 16:17:50 -0500 Subject: fix bug where links with %2B would not work because the result filenames had the %2Bs converted to + signs --- SBO-Lib/lib/SBO/Lib.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'SBO-Lib/lib/SBO/Lib.pm') diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 1d47cd4..e801fbb 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -349,7 +349,8 @@ sub get_filename_from_link ($) { exists $_[0] or script_error 'get_filename_from_link requires an argument'; my $fn = shift; my $regex = qr#/([^/]+)$#; - return $fn =~ $regex ? $distfiles .'/'. ($fn =~ $regex)[0] : undef; + my $filename = $fn =~ $regex ? $distfiles .'/'. ($fn =~ $regex)[0] : undef; + return $filename; } # for a given file, computer its md5sum -- cgit v1.2.3