From da39d2b1b1a0eafb78154b2289593f2263a4d223 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Wed, 10 Aug 2011 16:43:12 -0400
Subject: 2.3.a1

---
 make_dist | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'make_dist')

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);
-- 
cgit v1.2.3-54-g00ecf