added "use 5.006;" to fail gracefully on outdated perl versions

added function forward declarations, to avoid warnings shown by "perl -c -w"


git-svn-id: svn://tug.org/texlive/trunk@9599 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 12 insertions, 2 deletions

diff --git a/Master/texmf/scripts/xindy/texindy.pl b/Master/texmf/scripts/xindy/texindy.pl
index 47b1144da99..2664b6fcd54 100755
--- a/Master/texmf/scripts/xindy/texindy.pl
+++ b/Master/texmf/scripts/xindy/texindy.pl
@@ -291,7 +291,7 @@ GNU General Public License for more details.
 
 =cut
 
-
+use 5.006;
 use strict;
 
 BEGIN {
@@ -353,6 +353,9 @@ sub usage ()
     exit 1;
 }
 
+sub parse_options();
+sub output_version();
+
 our ($output_version, $quiet, $verbose, $stdin, @debug,
      $outfile, $logfile, $language, $codepage, @modules, $input_markup);
 $language = 'general';
diff --git a/Master/texmf/scripts/xindy/xindy.pl b/Master/texmf/scripts/xindy/xindy.pl
index 67b4a4d1298..72407935c54 100755
--- a/Master/texmf/scripts/xindy/xindy.pl
+++ b/Master/texmf/scripts/xindy/xindy.pl
@@ -271,7 +271,7 @@ GNU General Public License for more details.
 
 =cut
 
-
+use 5.006;
 use strict;
 
 BEGIN {
@@ -385,6 +385,13 @@ sub usage ()
     exit 1;
 }
 
+sub parse_options();
+sub handle_signals();
+sub create_raw_index();
+sub filter_index($$);
+sub xindy_expression();
+sub call_xindy($$);
+
 our ($quiet, $verbose, %debug,
      $outfile, $logfile, $language, @codepages, @modules, $input_markup,
      $interactive, $mem_file);