# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1589205679 -32400
# Node ID 347ea2bca68749a6715a6e15fb4d49bee7acd963
# Parent  a36a2c3b305633888d1ce891fc6c7f3966ba1d38
Force remove spaces in filename

diff -r a36a2c3b3056 -r 347ea2bca687 mpsplit.pl
--- a/mpsplit.pl	Mon May 11 20:08:29 2020 +0900
+++ b/mpsplit.pl	Mon May 11 23:01:19 2020 +0900
@@ -30,6 +30,7 @@
     if ($fn =~ /^([^\/]*)$/) {
       $fn = $1;
     }
+    $fn =~ s/ /_/g;
     open(OUT, ">$dir/$fn");
       print OUT $body;
     close(OUT);