Should now work with perl 5.6 and perl 5.005. The price for it is to not use strict, what is a bad thing IMHO

CVS version numbers

check_trans.pl: 1.13 -> 1.14

1 files changed, 15 insertions, 11 deletions

diff --git a/check_trans.pl b/check_trans.pl
index 5a2964bc51b..d221fa54665 100755
--- a/check_trans.pl
+++ b/check_trans.pl
@@ -69,19 +69,23 @@
 
 use Getopt::Std;
 use IO::Handle;
-use strict;
+# Well, uncommenting the next line implies to define the opt_blah with 'our'
+# in perl 5.6, which is not a valid keyword in older version. So, we can't 
+# use strict for now, what is, IMHO, a bad think. 
+# Let's wait for perl 5.6 in testing..
+#use strict;
 
 # options
-our $opt_d = 0;
-our $opt_s = '';
-our $opt_p = undef;
-our $opt_l = 0;
-our $opt_g = 0; 
-our $opt_m = '';
-our $opt_n = 5;
-our $opt_v;
-our $opt_q;
-our $opt_Q;
+$opt_d = 0;
+$opt_s = '';
+$opt_p = undef;
+$opt_l = 0;
+$opt_g = 0; 
+$opt_m = '';
+$opt_n = 5;
+# our $opt_v;
+# our $opt_q;
+# our $opt_Q;
 
 # languages
 my $defaultlanguage;