diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-11 03:00:38 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-11 03:00:38 +0000 |
commit | ef86cc7c003cc95a612e75aea0f78e21db9699fb (patch) | |
tree | 74db8841dd06e01b6f056d8c858628fe034ecd07 /web/clojure-pamphlet/pamphletangler | |
parent | a1c3d5afa1daf60d772eb18931e05c5397e7404c (diff) |
CTAN sync 201909110300
Diffstat (limited to 'web/clojure-pamphlet/pamphletangler')
-rwxr-xr-x | web/clojure-pamphlet/pamphletangler | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/web/clojure-pamphlet/pamphletangler b/web/clojure-pamphlet/pamphletangler index 32571347ac..50c384cc98 100755 --- a/web/clojure-pamphlet/pamphletangler +++ b/web/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; |