OpenSystemsDevelopment / qpdf

Commit f0527d925853480341445edc15e4d10c6487de10

Authored by Jay Berkenbilt
1 parent 759c56e1

fix perl header

Inline Side-by-side
Showing 1 changed file with 4 additions and 3 deletions
qpdf/fix-qdf
  View file @f0527d9
1 1 #!/usr/bin/env perl
2 2  
3 3 require 5.008_001;
4   -BEGIN { $^W = 1; }
  4 +use warnings;
5 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 11 if ((@ARGV == 1) && ($ARGV[0] eq '--version'))
11 12 {
... ...