@@ -1,35 +0,0 @@
-Version 2.38 of module Getopt::Long has been released to CPAN. It will
-be standard part of Perl versions 5.8.10 and 5.10.1.
-
-Module Getopt::Long implements an extended getopt function called
-GetOptions(). This function implements the POSIX standard for command
-line options, with GNU extensions, while still capable of handling
-the traditional one-letter options (including option bundling).
-It adds a lot of features like automatic abbreviation of option names,
-aliases and callback functions.
-
-The README document is attached to this message.
-
-The easiest way to get it is by using the CPAN shell:
-
- perl -MCPAN -e 'install("Getopt::Long")'
-
-Alternatively, use a Web browser and point it to the CPAN search engine:
- http://search.cpan.org/search?module=Getopt::Long
-
-Changes in this version
------------------------
-
-* Bugfix for Ticket 35759: First arg to callback function evaluates
- to false when used in bool context.
-
-* Fix problem with prototypes of GetOptionsFrom* functions.
-
-* Fix restoring default die handler.
-
-* Bugfix for Ticket 24941: Autoabbrev with + incorrect.
-
-Previous released version was 2.37.
-
----- README ----
-
@@ -1,3 +1,23 @@
+Changes in version 2.42
+-----------------------
+
+* Fix bug https://rt.cpan.org/Ticket/Display.html?id=88707
+
+Changes in version 2.41
+-----------------------
+
+* Change INSTALLDIRS to site for perl >= 5.011.
+
+ See https://rt.perl.org/rt3//Ticket/Display.html?id=116479
+ for details.
+
+Changes in version 2.40
+-----------------------
+
+* Fix bug #86095 Possible problem with aliases
+
+* Fix bug #85362 typo fix
+
Changes in version 2.39
-----------------------
@@ -1,4 +1,3 @@
-Announce Getopt::Long Announcement
MANIFEST List of files in this kit
README Introductionary text
INSTALL Installation information
@@ -19,5 +18,5 @@ examples/skel3.pl Skeleton program to use Getopt::Long
examples/skel4.pl Skeleton program to use Getopt::Long
examples/parsetime.pl Sample user handler for options
perl-Getopt-Long.spec RPM spec file for (some) RedHat based systems
-META.yml Meta information
+META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
@@ -37,5 +37,5 @@
}
},
"release_status" : "stable",
- "version" : "2.39"
+ "version" : "2.42"
}
@@ -19,4 +19,4 @@ no_index:
- inc
requires:
Pod::Usage: 1.14
-version: 2.39
+version: 2.42
@@ -2,8 +2,8 @@
# Author : Johan Vromans
# Created On : Sat Mar 16 11:43:21 1996
# Last Modified By: Johan Vromans
-# Last Modified On: Fri Jul 9 14:23:45 2010
-# Update Count : 112
+# Last Modified On: Mon Jul 8 08:14:42 2013
+# Update Count : 113
# Status : Unknown, Use with caution!
use Config;
@@ -88,7 +88,7 @@ WriteMakefile(
ABSTRACT => 'Module to handle parsing command line options',
),
- INSTALLDIRS => 'perl',
+ INSTALLDIRS => ($] < 5.011 ? 'perl' : 'site'),
PM => { "lib/newgetopt.pl" => '$(INST_LIB)/newgetopt.pl',
"lib/Getopt/Long.pm" => '$(INST_LIB)/Getopt/Long.pm',
},
@@ -200,7 +200,7 @@ Or use the CPAN search engine:
COPYRIGHT AND DISCLAIMER
========================
-Module Getopt::Long is Copyright 2009,1990 by Johan Vromans.
+Module Getopt::Long is Copyright 2013,1990 by Johan Vromans.
This program is free software; you can redistribute it and/or
modify it under the terms of the Perl Artistic License or the
GNU General Public License as published by the Free Software
@@ -5,8 +5,8 @@
# Author : Johan Vromans
# Created On : Tue Sep 15 15:59:04 1992
# Last Modified By: Johan Vromans
-# Last Modified On: Fri Jul 9 14:31:06 2010
-# Update Count : 83
+# Last Modified On: Thu Jul 4 14:43:40 2013
+# Update Count : 84
# Status : Unknown, Use with caution!
################ Common stuff ################
@@ -93,25 +93,23 @@ sub app_setup {
'debug',
) )
{
- # GNU convention: message to STDERR upon failure.
- app_usage(\*STDERR, 2);
+ app_usage(2);
}
- # GNU convention: message to STDOUT upon request.
- app_usage(\*STDOUT, 0) if $help;
- app_ident(\*STDOUT) if $ident;
+ app_usage(0) if $help;
+ app_ident() if $ident;
$options;
}
sub app_ident {
- my ($fh) = @_;
- print {$fh} ("This is $my_package [$my_name $my_version]\n");
+ print ("This is $my_package [$my_name $my_version]\n");
}
sub app_usage {
- my ($fh, $exit) = @_;
- app_ident($fh);
- print ${fh} <<EndOfUsage;
+ my ($exit) = @_;
+ select \*STDERR if $exit;
+ app_ident();
+ print <<EndOfUsage;
Usage: $0 [options] [file ...]
### ADD OPTIONS HERE ###
--config=CFG load options from config file
@@ -4,8 +4,8 @@
# Author : Johan Vromans
# Created On : Tue Sep 11 15:00:12 1990
# Last Modified By: Johan Vromans
-# Last Modified On: Tue Mar 12 14:42:25 2013
-# Update Count : 1638
+# Last Modified On: Tue Oct 1 08:25:52 2013
+# Update Count : 1651
# Status : Released
################ Module Preamble ################
@@ -17,10 +17,10 @@ use 5.004;
use strict;
use vars qw($VERSION);
-$VERSION = 2.39;
+$VERSION = 2.42;
# For testing versions only.
use vars qw($VERSION_STRING);
-$VERSION_STRING = "2.39";
+$VERSION_STRING = "2.42";
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@@ -251,7 +251,7 @@ use constant PAT_XINT =>
"|".
"0[0-7_]*".
")";
-use constant PAT_FLOAT => "[-+]?[0-9._]+(\.[0-9_]+)?([eE][-+]?[0-9_]+)?";
+use constant PAT_FLOAT => "[-+]?[0-9_]+(\.[0-9_]+)?([eE][-+]?[0-9_]+)?";
sub GetOptions(@) {
# Shift in default array.
@@ -984,9 +984,9 @@ sub FindOption ($$$$$) {
# See if all matches are for the same option.
my %hit;
foreach ( @hits ) {
- my $hit = $_;
- $hit = $opctl->{$hit}->[CTL_CNAME]
- if defined $opctl->{$hit}->[CTL_CNAME];
+ my $hit = $opctl->{$_}->[CTL_CNAME]
+ if defined $opctl->{$_}->[CTL_CNAME];
+ $hit = "no" . $hit if $opctl->{$_}->[CTL_TYPE] eq '!';
$hit{$hit} = 1;
}
# Remove auto-supplied options (version, help).
@@ -1200,7 +1200,6 @@ sub FindOption ($$$$$) {
elsif ( $type eq 'f' ) { # real number, int is also ok
# We require at least one digit before a point or 'e',
# and at least one digit following the point and 'e'.
- # [-]NN[.NN][eNN]
my $o_valid = PAT_FLOAT;
if ( $bundling && defined $rest &&
$rest =~ /^($key_valid)($o_valid)(.*)$/s ) {
@@ -2546,7 +2545,7 @@ briefly some of these 'features'.
When no destination is specified for an option, GetOptions will store
the resultant value in a global variable named C<opt_>I<XXX>, where
-I<XXX> is the primary name of this option. When a progam executes
+I<XXX> is the primary name of this option. When a program executes
under C<use strict> (recommended), these variables must be
pre-declared with our() or C<use vars>.
@@ -2674,7 +2673,7 @@ Johan Vromans <jvromans@squirrel.nl>
=head1 COPYRIGHT AND DISCLAIMER
-This program is Copyright 1990,2010 by Johan Vromans.
+This program is Copyright 1990,2013 by Johan Vromans.
This program is free software; you can redistribute it and/or
modify it under the terms of the Perl Artistic License or the
GNU General Public License as published by the Free Software
@@ -1,5 +1,5 @@
%define modname Getopt-Long
-%define modversion 2.39
+%define modversion 2.42
%define path Getopt
Name: perl-%{modname}