don't 'my' $_

This commit is contained in:
Yuichi Nishiwaki 2014-05-19 12:58:11 +09:00
parent 365ca25aa4
commit 25bf83291e
1 changed files with 1 additions and 1 deletions

View File

@ -56,7 +56,7 @@ print <<EOL;
EOL
sub escape_v {
my ($_) = @_;
($_) = @_;
s/\.scm$//g;
s/[\/-]/_/g;
$_;