Changeset 9239

Timestamp:

2005-03-01T17:10:38+13:00 (19 years ago)

Author:

mdewsnip

Message:

Changed "unshift" to "push", so an existing XML::Parser on the system is used in preference to the Greenstone prebuilt XML::Parser (in cpan/perl-5.6 or cpan/perl-5.8).

File:

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

trunk/gsdl/perllib/XMLParser.pm

@@ -23 +23 @@
 
     if ($ENV{'GSDLOS'} !~ /^windows$/i) {
-    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir");
+    # Use push to put this on the end, so an existing XML::Parser will be used by default
+    push (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir");
     }
 }