octoleo/qpdf
2
1
Fork 0
mirror of https://github.com/qpdf/qpdf.git synced 2024-12-22 10:58:58 +00:00
Code Issues Releases Wiki Activity

fix perl header

Browse Source
This commit is contained in:
Jay Berkenbilt 2011-08-10 16:42:17 -04:00
parent 759c56e1fe
commit f0527d9258
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
qpdf/fix-qdf
View File

@ -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'))
{