diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-10-04 16:17:50 -0500 |
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-10-04 16:17:50 -0500 |
| commit | 2beda783d846ae15763bdee06aa8ddeeecff9fae (patch) | |
| tree | 96e9f0e8fbb377e32ae44a8cef5d15fb8ccb3f64 /SBO-Lib/lib/SBO/Lib.pm | |
| parent | 62405748ab1470aac11811167c001ce7cbeb040a (diff) | |
| download | sbotools2-2beda783d846ae15763bdee06aa8ddeeecff9fae.tar.xz | |
fix bug where links with %2B would not work because the result filenames had the %2Bs converted to + signs
Diffstat (limited to 'SBO-Lib/lib/SBO/Lib.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |