diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/mycv/mycv_split_contents.pl')
-rw-r--r-- | Master/texmf-dist/doc/latex/mycv/mycv_split_contents.pl | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/Master/texmf-dist/doc/latex/mycv/mycv_split_contents.pl b/Master/texmf-dist/doc/latex/mycv/mycv_split_contents.pl index 58f335043a9..1fc172764dc 100644 --- a/Master/texmf-dist/doc/latex/mycv/mycv_split_contents.pl +++ b/Master/texmf-dist/doc/latex/mycv/mycv_split_contents.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl # ------------------------------------------------------- # Copyright 2012 Ghersi Andrea (ghanhawk@gmail.com). @@ -8,7 +8,7 @@ # 1.3c, available at 'http://www.latex-project.org/lppl'. # ------------------------------------------------------- -# $Id: mycv_split_contents.pl 83 2012-05-10 17:21:40Z ghangenit $ +# $Id: mycv_split_contents.pl 89 2012-05-19 18:23:03Z ghangenit $ use Getopt::Long; use File::Path; @@ -36,7 +36,6 @@ my $infile = 'cv_contents.tex'; # default input file my $cwd = getcwd(); # current directory my %opt = (); # hash for options - ### ### @@ -80,13 +79,11 @@ EOF exit 0; } - ### ### sub mcdie { printf STDERR @_, $!; exit 1; } - ### ### @@ -105,7 +102,6 @@ sub processCommandLine() return \%opt; } - ### ### @@ -122,7 +118,6 @@ sub _dealWithInOutFiles $opt{infile} = $infile; } - ### ### @@ -207,9 +202,8 @@ sub fileprocess ($) } } - ## ## MAIN ## -fileprocess( processCommandLine() );
\ No newline at end of file +fileprocess( processCommandLine() ); |