Changeset 21822 for main/trunk/greenstone2/perllib

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.

Location:

main/trunk/greenstone2/perllib

Files:

• XMLParser.pm (modified) (1 diff)
• buildConfigxml.pm (modified) (1 diff)
• collConfigxml.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";

main/trunk/greenstone2/perllib/buildConfigxml.pm

@@ -42 +42 @@
 
     # 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";

main/trunk/greenstone2/perllib/collConfigxml.pm

@@ -38 +38 @@
 
     # 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";