diff options
Diffstat (limited to 'make_dist')
-rwxr-xr-x | make_dist | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -5,13 +5,13 @@ # require 5.008; -BEGIN { $^W = 1; } +use warnings; use strict; +use File::Basename; use Cwd; use IO::File; -my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0; -#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : "."; +my $whoami = basename($0); usage() unless @ARGV >= 1; my $srcdir = shift(@ARGV); |