diff options
| -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')) { |