diff options
author | Karl Berry <karl@freefriends.org> | 2019-09-11 21:20:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-09-11 21:20:42 +0000 |
commit | 592ddf056152be42eddacf8b99eb0819e3081c8e (patch) | |
tree | b885164b2c054588d9af7eefa9202f1acbdb90de /Master/texmf-dist/scripts/clojure-pamphlet | |
parent | a4638c5ac366e7d8e329f5276543492ee5c22f41 (diff) |
clojure-pamphlet (11sep19)
git-svn-id: svn://tug.org/texlive/trunk@52082 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/clojure-pamphlet')
-rwxr-xr-x | Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler b/Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler index e0054e8da59..50c384cc98e 100755 --- a/Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler +++ b/Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler @@ -94,7 +94,7 @@ use Getopt::Long; use Pod::Usage qw(pod2usage); use vars qw/$VERSION/; -BEGIN { $VERSION = '1.2' } +BEGIN { $VERSION = '1.3' } my $linetext = ""; my $changetext = "{}"; @@ -111,27 +111,6 @@ OPTS: { 'change|C=s' => \$changetext ); - -#pod - while ( my ($option, $value, $pretty) = Getopt::Mixed::nextOption() ) { - $linetext = $value if $option eq 'L'; - if( $option eq 'V' ) { - print "$VERSION\n"; - exit; - } - if ($option eq '?') { - pod2usage( -verbose => 99, -sections => [ qw(SYNOPSIS OPTIONS BUGS) ]); - exit; - } - if ($option eq 'man') { - pod2usage( -verbose => 2 ); - exit; - } - $linetext = $value if $option eq 'L'; - $changetext = $value if $option eq 'C'; - } -#cut - pod2usage( -message => "[ERROR]: Invalid number of arguments." ) if scalar(@ARGV) != 2; $filename = shift; |