diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpsrc2tlpobj')
| -rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpobj | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2tlpobj b/Master/tlpkg/bin/tlpsrc2tlpobj index 0c03bb6672d..26e9380fd2d 100755 --- a/Master/tlpkg/bin/tlpsrc2tlpobj +++ b/Master/tlpkg/bin/tlpsrc2tlpobj @@ -25,19 +25,16 @@ use File::Path; my $opt_master = "/src/TeX/texlive-svn/Master"; my $opt_outputdir = "./tlpobj"; our $opt_debug = 0; -my $man = 0; my $help = 0; my $opt_catalogue = ""; -GetOptions("debug!", # debug mode - "master=s" => \$opt_master, # location of the tree - "catalogue=s" => \$opt_catalogue, # location of the TeX Catalogue - "outputdir=s" => \$opt_outputdir, - 'help|?' => \$help, man => \$man - ) or pod2usage(2); +GetOptions( + "master=s" => \$opt_master, # location of the tree + "catalogue=s" => \$opt_catalogue, # location of the TeX Catalogue + "outputdir=s" => \$opt_outputdir, + "debug!", "help|?" => \$help) or pod2usage(1); -pod2usage(1) if $help; -pod2usage(-exitstatus => 0, -verbose => 2) if $man; +pod2usage(-exitstatus => 0, -verbose => 2) if $help; if (! -d "$opt_master") { die "Master $opt_master does not exists!"; @@ -100,7 +97,7 @@ Specifies the location where tlp files are created. Defaults to C<./tlp>. =back -The standard options C<-help>, C<-debug>, and C<-man> are also accepted. +The standard options C<-help> and C<-debug> are also accepted. See the tlpfiles documentation for details. =head1 DESCRIPTION |