diff options
author | Jay Berkenbilt <ejb@ql.org> | 2011-08-10 22:42:17 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2011-08-10 22:42:17 +0200 |
commit | f0527d925853480341445edc15e4d10c6487de10 (patch) | |
tree | 3f6c91116f1f7e528bc1401dfb9e558e4f1828e7 | |
parent | 759c56e1fed2849b77bff18f2a50639876395e5e (diff) | |
download | qpdf-f0527d925853480341445edc15e4d10c6487de10.tar.zst |
fix perl header
-rwxr-xr-x | qpdf/fix-qdf | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/qpdf/fix-qdf b/qpdf/fix-qdf index 7dc1f7e4..b0e56e12 100755 --- a/qpdf/fix-qdf +++ b/qpdf/fix-qdf @@ -1,11 +1,12 @@ #!/usr/bin/env perl require 5.008_001; -BEGIN { $^W = 1; } +use warnings; use strict; +use File::Basename; -my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0; -my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : "."; +my $whoami = basename($0); +my $dirname = dirname($0); if ((@ARGV == 1) && ($ARGV[0] eq '--version')) { |