summaryrefslogtreecommitdiff
path: root/web/clojure-pamphlet/pamphletangler
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-11 03:00:38 +0000
committerNorbert Preining <norbert@preining.info>2019-09-11 03:00:38 +0000
commitef86cc7c003cc95a612e75aea0f78e21db9699fb (patch)
tree74db8841dd06e01b6f056d8c858628fe034ecd07 /web/clojure-pamphlet/pamphletangler
parenta1c3d5afa1daf60d772eb18931e05c5397e7404c (diff)
CTAN sync 201909110300
Diffstat (limited to 'web/clojure-pamphlet/pamphletangler')
-rwxr-xr-xweb/clojure-pamphlet/pamphletangler23
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;