Commit f0527d925853480341445edc15e4d10c6487de10
1 parent
759c56e1
fix perl header
Showing
1 changed file
with
4 additions
and
3 deletions
qpdf/fix-qdf
| 1 | #!/usr/bin/env perl | 1 | #!/usr/bin/env perl |
| 2 | 2 | ||
| 3 | require 5.008_001; | 3 | require 5.008_001; |
| 4 | -BEGIN { $^W = 1; } | 4 | +use warnings; |
| 5 | use strict; | 5 | use strict; |
| 6 | +use File::Basename; | ||
| 6 | 7 | ||
| 7 | -my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0; | ||
| 8 | -my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : "."; | 8 | +my $whoami = basename($0); |
| 9 | +my $dirname = dirname($0); | ||
| 9 | 10 | ||
| 10 | if ((@ARGV == 1) && ($ARGV[0] eq '--version')) | 11 | if ((@ARGV == 1) && ($ARGV[0] eq '--version')) |
| 11 | { | 12 | { |