Upgrade to Getopt::Long 2.32_05

[p5sagit/p5-mst-13.2.git] / lib / Getopt / Long / t / gol-basic.t

diff --git a/lib/Getopt/Long/t/gol-basic.t b/lib/Getopt/Long/t/gol-basic.t
index c5d857d..f1916b2 100644 (file)
--- a/lib/Getopt/Long/t/gol-basic.t
+++ b/lib/Getopt/Long/t/gol-basic.t
@@ -1,14 +1,16 @@
 #!./perl -w
 
 BEGIN {
-    chdir('t') if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       @INC = '../lib';
+       chdir 't';
+    }
 }
 
 use Getopt::Long qw(:config no_ignore_case);
-die("Getopt::Long version 2.24 required--this is only version ".
+die("Getopt::Long version 2.23_03 required--this is only version ".
     $Getopt::Long::VERSION)
-  unless $Getopt::Long::VERSION >= 2.24;
+  unless $Getopt::Long::VERSION ge "2.24";
 
 print "1..9\n";