Changeset 21822 for main/trunk/greenstone2/perllib/XMLParser.pm

Timestamp:

2010-03-25T21:09:50+13:00 (14 years ago)

Author:

ak19

Message:

Dr Bainbridge has fixed several perl files that depended on perl 5.8 to work and used to fail with Perl 5.10.

File:

• main/trunk/greenstone2/perllib/XMLParser.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/XMLParser.pm

@@ -8 +8 @@
 
     # Note: $] encodes the version number of perl
-    if ($]>5.008) { 
+    if ($]>=5.010) { 
+    $perl_dir = "perl-5.10";
+    }
+    elsif ($]>5.008) { 
+    # perl 5.8.1 or above
+    $perl_dir = "perl-5.8";
+    }
+    elsif ($]>=5.008) { 
     # perl 5.8.1 or above
     $perl_dir = "perl-5.8";