2.3.a1

1 files changed, 3 insertions, 3 deletions

diff --git a/make_dist b/make_dist
index e6c489ff..9296c5ad 100755
--- a/make_dist
+++ b/make_dist
@@ -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);