From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 29 Aug 2000 12:50:14 +0000 (+0000)
Subject: Update to Getopt::Long 2.24, from Johan Vromans.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ed53c8c3051aa6e1b66e073f06b76af9fd13755;p=p5sagit%2Fp5-mst-13.2.git

Update to Getopt::Long 2.24, from Johan Vromans.

p4raw-id: //depot/perl@6875
---

diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm
index b3d4622..2bb0548 100644
--- a/lib/Getopt/Long.pm
+++ b/lib/Getopt/Long.pm
@@ -2,7 +2,7 @@
 
 package Getopt::Long;
 
-# RCS Status      : $Id: GetoptLong.pl,v 2.24 2000-03-14 21:28:52+01 jv Exp jv $
+# RCS Status      : $Id: GetoptLong.pl,v 2.25 2000-08-28 21:45:17+02 jv Exp $
 # Author          : Johan Vromans
 # Created On      : Tue Sep 11 15:00:12 1990
 # Last Modified By: Johan Vromans
@@ -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.24;
 
     @ISA         = qw(Exporter);
     @EXPORT      = qw(&GetOptions $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER);
@@ -210,7 +210,7 @@ __END__
 
 ################ AutoLoading subroutines ################
 
-# RCS Status      : $Id: GetoptLongAl.pl,v 2.28 2000-05-12 11:26:41+02 jv Exp jv $
+# RCS Status      : $Id: GetoptLongAl.pl,v 2.29 2000-08-28 21:56:18+02 jv Exp $
 # Author          : Johan Vromans
 # Created On      : Fri Mar 27 11:50:30 1998
 # Last Modified By: Johan Vromans
@@ -239,7 +239,7 @@ sub GetOptions {
     print STDERR ("GetOpt::Long $Getopt::Long::VERSION ",
 		  "called from package \"$pkg\".",
 		  "\n  ",
-		  'GetOptionsAl $Revision: 2.28 $ ',
+		  'GetOptionsAl $Revision: 2.29 $ ',
 		  "\n  ",
 		  "ARGV: (@ARGV)",
 		  "\n  ",
@@ -1627,6 +1627,19 @@ Allow C<+> to start options.
 Default is enabled unless environment variable
 POSIXLY_CORRECT has been set, in which case C<getopt_compat> is disabled.
 
+=item gnu_compat
+
+C<gnu_compat> controls whether C<--opt=> is allowed, and what it should
+do. Without C<gnu_compat>, C<--opt=> gives an error. With C<gnu_compat>,
+C<--opt=> will give option C<opt> and empty value.
+This is the way GNU getopt_long() does it.
+
+=item gnu_getopt
+
+This is a short way of setting C<gnu_compat> C<bundling> C<permute>
+C<no_getopt_compat>. With C<gnu_getopt>, command line handling should be
+fully compatible with GNU getopt_long().
+
 =item require_order
 
 Whether command line arguments are allowed to be mixed with options.
diff --git a/t/lib/gol-basic.t b/t/lib/gol-basic.t
index 351bbc8..c5d857d 100755
--- a/t/lib/gol-basic.t
+++ b/t/lib/gol-basic.t
@@ -6,9 +6,9 @@ BEGIN {
 }
 
 use Getopt::Long qw(:config no_ignore_case);
-die("Getopt::Long version 2.23_03 required--this is only version ".
+die("Getopt::Long version 2.24 required--this is only version ".
     $Getopt::Long::VERSION)
-  unless $Getopt::Long::VERSION >= 2.23_03;
+  unless $Getopt::Long::VERSION >= 2.24;
 
 print "1..9\n";
 
diff --git a/t/lib/gol-oo.t b/t/lib/gol-oo.t
index ff1cd2e..98f3eaa 100644
--- a/t/lib/gol-oo.t
+++ b/t/lib/gol-oo.t
@@ -6,9 +6,9 @@ BEGIN {
 }
 
 use Getopt::Long;
-die("Getopt::Long version 2.23_03 required--this is only version ".
+die("Getopt::Long version 2.24 required--this is only version ".
     $Getopt::Long::VERSION)
-  unless $Getopt::Long::VERSION >= 2.23_03;
+  unless $Getopt::Long::VERSION >= 2.24;
 print "1..9\n";
 
 @ARGV = qw(-Foo -baR --foo bar);