Upgrade to Getopt::Long 2.32_05

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

diff --git a/lib/Getopt/Long/t/gol-oo.t b/lib/Getopt/Long/t/gol-oo.t
index 98f3eaa..f8191d1 100644 (file)
--- a/lib/Getopt/Long/t/gol-oo.t
+++ b/lib/Getopt/Long/t/gol-oo.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;
-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";
 
 @ARGV = qw(-Foo -baR --foo bar);