Tiny Getopt::Long patch from Johan Vromans.

p4raw-id: //depot/perl@6697

diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm
index 7c64c88..b3d4622 100644 (file)
--- a/lib/Getopt/Long.pm
+++ b/lib/Getopt/Long.pm
@@ -36,7 +36,7 @@ BEGIN {
     require 5.004;
     use Exporter ();
     use vars     qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-    $VERSION     = "2.23_05";
+    $VERSION     = 2.23_05;
 
     @ISA         = qw(Exporter);
     @EXPORT      = qw(&GetOptions $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER);

diff --git a/t/lib/gol-basic.t b/t/lib/gol-basic.t
index 6707ef1..0443816 100755 (executable)
--- a/t/lib/gol-basic.t
+++ b/t/lib/gol-basic.t
@@ -8,7 +8,7 @@ BEGIN {
 use Getopt::Long qw(:config no_ignore_case);
 die("Getopt::Long version 2.23_03 required--this is only version ".
     $Getopt::Long::VERSION)
-  unless $Getopt::Long::VERSION ge "2.23_03";
+  unless $Getopt::Long::VERSION >= 2.23_03;
 
 print "1..9\n";
 

diff --git a/t/lib/gol-oo.t b/t/lib/gol-oo.t
index 106d54f..b344e4c 100644 (file)
--- a/t/lib/gol-oo.t
+++ b/t/lib/gol-oo.t
@@ -8,7 +8,7 @@ BEGIN {
 use Getopt::Long;
 die("Getopt::Long version 2.23_03 required--this is only version ".
     $Getopt::Long::VERSION)
-  unless $Getopt::Long::VERSION ge "2.23_03";
+  unless $Getopt::Long::VERSION >= 2.23_03;
 print "1..9\n";
 
 @ARGV = qw(-Foo -baR --foo bar);