don't 'my' $_

This commit is contained in:
Yuichi Nishiwaki
2014-05-19 12:58:11 +09:00
parent 365ca25aa4
commit 25bf83291e
+1 -1
View File
@@ -56,7 +56,7 @@ print <<EOL;
EOL
sub escape_v {
my ($_) = @_;
($_) = @_;
s/\.scm$//g;
s/[\/-]/_/g;
$_;