diff options
author | Guenter Knauf <lists@gknw.net> | 2013-04-04 04:01:01 +0200 |
---|---|---|
committer | Guenter Knauf <lists@gknw.net> | 2013-04-04 04:02:12 +0200 |
commit | fbc35d394cc57b9e2e92fe45d34778b77f29c05b (patch) | |
tree | b3ee3794bd561e888440ed5f57970fe55073bf85 | |
parent | 3dcc1a9c1953e0152c0a7c7384c58dedd28ab931 (diff) |
Another small output fix for --help and --version.
-rwxr-xr-x | lib/mk-ca-bundle.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/mk-ca-bundle.pl b/lib/mk-ca-bundle.pl index b7ab1a1bf..2eeefff0b 100755 --- a/lib/mk-ca-bundle.pl +++ b/lib/mk-ca-bundle.pl @@ -44,6 +44,7 @@ my $version = '1.18'; $opt_w = 76; # default base64 encoded lines length +$0 =~ s@.*(/|\\)@@; $Getopt::Std::STANDARD_HELP_VERSION = 1; getopts('bfhilnqtuvw:'); @@ -59,7 +60,6 @@ if ($opt_i) { print ("=" x 78 . "\n"); } -$0 =~ s@.*(/|\\)@@; sub HELP_MESSAGE() { print "Usage:\t${0} [-b] [-f] [-i] [-l] [-n] [-q] [-t] [-u] [-v] [-w<l>] [<outputfile>]\n"; print "\t-b\tbackup an existing version of ca-bundle.crt\n"; |