From ef86cc7c003cc95a612e75aea0f78e21db9699fb Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 11 Sep 2019 03:00:38 +0000 Subject: CTAN sync 201909110300 --- web/clojure-pamphlet/pamphletangler | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) (limited to 'web/clojure-pamphlet/pamphletangler') 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; -- cgit v1.2.3