summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-09-11 21:20:42 +0000
committerKarl Berry <karl@freefriends.org>2019-09-11 21:20:42 +0000
commit592ddf056152be42eddacf8b99eb0819e3081c8e (patch)
treeb885164b2c054588d9af7eefa9202f1acbdb90de /Master/texmf-dist/scripts
parenta4638c5ac366e7d8e329f5276543492ee5c22f41 (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')
-rwxr-xr-xMaster/texmf-dist/scripts/clojure-pamphlet/pamphletangler23
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;