From 9e267b1504913afb402b48440f9111fd972529c5 Mon Sep 17 00:00:00 2001
From: "jules@lens" <julescarbon@gmail.com>
Date: Fri, 22 Jun 2018 02:15:26 +0200
Subject: fix fetch

---
 get.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'get.pl')

diff --git a/get.pl b/get.pl
index 214f861..0be57b4 100755
--- a/get.pl
+++ b/get.pl
@@ -10,7 +10,7 @@ sub sanitize ($) {
   $s =~ s/^\s+//;
   $s =~ s/\s+$//;
   $s =~ s/\.[^.]+$//g;
-  $s =~ s/[-\[\]\(\)\+\*\\\/\'\"\`\!\@\#\$\%\^\&]//g
+  $s =~ s/[-\[\]\(\)\+\*\\\/\'\"\`\!\@\#\$\%\^\&]//g;
   $s =~ s/\s+/_/g;
   $s =~ s/_+/_/g;
   if (length($s) == 0) {
@@ -29,7 +29,8 @@ foreach my $s (@ARGV){
       $ext = $1;
       $s =~ s/^\s+//;
       $s =~ s/\s+$//;
-      $clean_fn = sanitize(`basename $s`) + '.' + $ext;
+      $clean_fn = sanitize(`basename "$s"`) . '.' . $ext;
+       print "$s $clean_fn $ext\n";
       system('rm', $fn);
       system('rm', $clean_fn);
       print "downloading $clean_fn\n";
-- 
cgit v1.2.3-70-g09d2