diff options
author | Jay Berkenbilt <ejb@ql.org> | 2011-08-10 22:43:12 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2011-08-10 22:48:00 +0200 |
commit | da39d2b1b1a0eafb78154b2289593f2263a4d223 (patch) | |
tree | e39a2271a2dbacedc42dc13eec32767cc023d53b /make_dist | |
parent | f0527d925853480341445edc15e4d10c6487de10 (diff) | |
download | qpdf-da39d2b1b1a0eafb78154b2289593f2263a4d223.tar.zst |
2.3.a1
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); |