zuh

1 files changed, 2 insertions, 2 deletions

diff --git a/get.pl b/get.pl
index 2081bb8..214f861 100755
--- a/get.pl
+++ b/get.pl
@@ -12,11 +12,11 @@ sub sanitize ($) {
   $s =~ s/\.[^.]+$//g;
   $s =~ s/[-\[\]\(\)\+\*\\\/\'\"\`\!\@\#\$\%\^\&]//g
   $s =~ s/\s+/_/g;
+  $s =~ s/_+/_/g;
   if (length($s) == 0) {
     print "fn is empty";
     exit(1);
   }
-  $s =~ s/_+/_/g;
   return $s;
 }
 
@@ -29,7 +29,7 @@ foreach my $s (@ARGV){
       $ext = $1;
       $s =~ s/^\s+//;
       $s =~ s/\s+$//;
-      $clean_fn = sanitize(`basename $s`) + $ext;
+      $clean_fn = sanitize(`basename $s`) + '.' + $ext;
       system('rm', $fn);
       system('rm', $clean_fn);
       print "downloading $clean_fn\n";