From e1be519f38bb37eeadbe6360c90f85a16d5bbe8c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 19 Apr 2012 16:23:18 +0000 Subject: pdfcrop (18apr12) git-svn-id: svn://tug.org/texlive/trunk@26043 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl') diff --git a/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl b/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl index e4f2ca181ed..b1e6e966a20 100755 --- a/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl +++ b/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl @@ -19,7 +19,8 @@ $^W=1; # turn warning on # This file "pdfcrop.pl" may be renamed to "pdfcrop" # for installation purposes. # -my $file = "pdfcrop.pl"; +my $prj = 'pdfcrop'; +my $file = "$prj.pl"; my $program = uc($&) if $file =~ /^\w+/; my $version = "1.33"; my $date = "2012/02/01"; @@ -97,6 +98,9 @@ my $copyright = "Copyright (c) 2002-2012 by $author."; # method. # 2011/08/10 v1.32: * Detection for gswin64c.exe added. # 2012/02/01 v1.33: * Input file can be `-' (standard input). +# 2012/04/18 v1.34: * Format of --version changed +# from naked version number to a line with +# program name, date and version. ### program identification my $title = "$program $version, $date - $copyright\n"; @@ -418,7 +422,7 @@ GetOptions( !$::opt_help or usage(0); if ($::opt_version) { - print "$version\n"; + print "$prj $date v$version\n"; exit(0); } -- cgit v1.2.3