diff options
Diffstat (limited to 'lib/Getopt/Long')
| -rw-r--r-- | lib/Getopt/Long/CHANGES | 534 | ||||
| -rw-r--r-- | lib/Getopt/Long/README | 214 | ||||
| -rw-r--r-- | lib/Getopt/Long/t/gol-basic.t | 31 | ||||
| -rw-r--r-- | lib/Getopt/Long/t/gol-compat.t | 39 | ||||
| -rw-r--r-- | lib/Getopt/Long/t/gol-linkage.t | 93 | ||||
| -rw-r--r-- | lib/Getopt/Long/t/gol-oo.t | 31 | ||||
| -rw-r--r-- | lib/Getopt/Long/t/gol-xargv.t | 33 | ||||
| -rw-r--r-- | lib/Getopt/Long/t/gol-xstring.t | 54 |
8 files changed, 0 insertions, 1029 deletions
diff --git a/lib/Getopt/Long/CHANGES b/lib/Getopt/Long/CHANGES deleted file mode 100644 index 679da2abae..0000000000 --- a/lib/Getopt/Long/CHANGES +++ /dev/null @@ -1,534 +0,0 @@ -Changes in version 2.38 ------------------------ - -* 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. - -Changes in version 2.37 ------------------------ - -* The first argument to callback function is now an object and will - get methods for finer control in the future. The object stringifies - to the option name, so current code should not notice a difference. - -* Bugfix: With gnu_compat, --foo= will no longer trigger "Option - requires an argument" but return the empty string. - -Changes in version 2.36 ------------------------ - -**************** WARNING -- EXPERIMENTAL CODE AHEAD **************** - -* Parsing options from an arbitrary array - - The entry point GetOptionsFromArray (exported on demand) can be used - to parse command line options that are not passed in via @ARGV, but - using an arbitrary array. - - use Getopt::Long qw(GetOptionsFromArray); - $ret = GetOptionsFromArray(\@myopts, ...); - -* Parsing options from an arbitrary string - - The entry point GetOptionsFromString (exported on demand) can be - used to parse command line options that are not passed in via @ARGV, - but using an arbitrary string. - - use Getopt::Long qw(GetOptionsFromString); - $ret = GetOptionsFromString($optstring, ...); - - Note that upon completion, no arguments may remain in the string. - If arguments may remain, call it in list context: - - ($ret, $args) = GetOptionsFromString($optstring, ...); - - @$args will have the remaining arguments. - -**************** END EXPERIMENTAL CODE **************** - -* Number values for options may include underscores for readability - (just like Perls numbers). - -* Bugfix for Ticket #19432 (found and fixed by khali). - -* Bugfix to make it cooperate with the bignum pragma. Thanks to Merijn - and Yves. - -* Various small fixes to make the test suite run under 5.004_05. - -* More examples (skeletons). - -Changes in version 2.35 ------------------------ - -* long_prefix_pattern configuration variable. - - prefix_pattern has now been complemented by a new configuration - option 'long_prefix_pattern' that allows the user to specify what - prefix patterns should have long option style sematics applied. - This will enable people to do things like - - foo.pl /option=value - - instead of forcing people to use the short option style - - foo.pl /option value - - This enhancement was suggested and implemented by Yves Orton. - -* Bugfix for Ticket #11377 (bug found and fixed by Ryan). -* Bugfix for Ticket #12380. - -* Options can take multiple values at once. E.g., - - --coordinates 52.2 16.4 --rgbcolor 255 255 149 - - To handle the above command line, the following call to GetOptions - can be used: - - GetOptions('coordinates=f{2}' => \@coor, 'rgbcolor=i{3}' => \@color); - - You can specify the minimum and maximum number of values desired. - The syntax for this is similar to that of regular expression - patterns: { min , max }. - -Changes in version 2.34 ------------------------ - -* Auto-vivification of array and hash refs - - If an option is specified to require an array or hash ref, and a - scalar reference is passed, this is auto-vivified to array or hash - ref. - - Example: - - @ARGV = qw(--foo=xx); - GetOptions("foo=s@", \$var); - # Now $var->[0] eq "xx" - -* Auto-supplied verbose and help options are no longer taken into - account when determining option ambiguity. This eliminates the - common problem that you suddenly get an ambiguous option warning - when you have an option "verbose" and run your program with "-v". - -* Cosmetic changes in some error messages. - -Changes in version 2.33 ------------------------ - -The following new features are marked experimental. This means that if -you are going to use them you _must_ watch out for the next release of -Getopt::Long to see if the API has changed. - -* Getopt::Long can automatically handle --version and --help options - if the calling program did not specify a handler explicitly. - - Two configuration parameters have been added: 'auto_help' (or - 'help') and 'auto_version' (or 'version'). If set, Getopt::Long will - itself take care of --help and --version options. Otherwise, - everything is exactly as it was before. - - The new features will be enabled by default for programs that - explicitly require version 2.3203 or later. - - Getopt::Long uses module Pod::Usage to produce the help message from - the SYNOPSIS section of the program's POD. - - Using a --help (or -?) command line option will write the SYNOPSIS - section of the program's POD to STDOUT, and exit with status 0. - However, an illegal option will produce the help text to STDERR, - and exit with status 2. This is in accordance with current - conventions. - -* Two subroutines can be exported on demand: - - - VersionMessage - - This subroutine prints the standard version message. - - - HelpMessage - - This subroutine prints the standard help message. - - Both subroutines take the same arguments as Pod::Usage::pod2usage, - see its documentation for details. - - Example: - - use Getopt::Long 2.33 qw(GetOptions HelpMessage); - GetOptions(...) or HelpMessage(2); - -* Subroutine Configure can now be exported on demand. - -* Negatable options (with "!") now also support the "no-" prefix. - On request of Ed Avis. - -* Some fixes with hashes and bundling. - Thanks to Anders Johnson and Andrei Gnepp. - Mandatory/optional status for hash values is now effective. - String valued options with no value now default to the empty string - instead of 1 (one). - NOTE: The hash options still remain more or less experimental. - -* Fix a pass_through bug where the options terminator (normally "--") - was not passed through in @ARGV. - Thanks to Philippe Verdret. - -* Add FAQ: I "use GetOpt::Long;" (Windows) and now it doesn't work. - -Changes in version 2.32 ------------------------ - -* Fix a bug where the initial value for a optional numeric argument -was not used for value of a hash option. - -* Remove 5.005 thread safety code. Getopt::Long is completely thread -safe when using the 5.8 ithreads. - -Changes in version 2.31 ------------------------ - -* Fix a bug where calling the configure method on a - Getopt::Long::Parser object would bail out with - Undefined subroutine &Getopt::Long::Parser::Configure called at - Getopt/Long.pm line 186. - -Changes in version 2.30 ------------------------ - -* Fix a problem where a 'die' from a 'warn' via a localized - $SIG{__WARN__} was not properly propagated from a callback. - Thanks to Diab Jerius. - -Changes in version 2.29 ------------------------ - -* Fix a problem where options were not recognized when both - auto_abbrev and ignore_case were disabled. Thanks to Seth Robertson. - -* Remove Carp. - -Changes in version 2.28 ------------------------ - -* When an option is specified more than once, a warning is generated - if perl is run with -w. This is a correction to 2.27, where it would - unconditionally die. - - An example of duplicate specification is GetOptions('foo', 'foo'), - but also GetOptions('foo=s', 'foo') and GetOptions('Foo', 'foo') - (the latter only when ignore_case is in effect). - -Changes in version 2.27 ------------------------ - -* You can now specify integer options to take an optional argument. - that defaults to a specific value. E.g., GetOptions('foo:5' => \$var) - will allow $var to get the value 5 when no value was specified with - the -foo option on the command line. - - Instead of a value, a '+' may be specified. E.g., - GetOptions('foo:+' => \$var) will allow $var to be incremented when - no value was specified with the -foo option on the command line. - -* Fix several problems with internal and external use of 'die' and - signal handlers. - -* Fixed some bugs with subtle combinations of bundling_override and - ignore_case. - -* A callback routine that is associated with a hash-valued option will - now have both the hask key and the value passed. It used to get only - the value passed. - -* Eliminated the use of autoloading. Autoloading kept generating - problems during development, and when using perlcc. - -* Avoid errors on references when an option is found in error, e.g. - GetOptions('fo$@#' => \$var). - Thanks to Wolfgang Laun. - -* When an option is specified more than once, an error is now - generated. E.g., GetOptions('foo', 'foo'). - Thanks to Wolfgang Laun. - -* Lots of internal restructoring to make room for extensions. - -* Redesigned the regression tests. - -* Enhance the documentation to prevent common misunderstandings about - single character options. - -Changes in version 2.26 ------------------------ - -* New option type: 'o'. It accepts all kinds of integral numbers in - Perl style, including decimal (24), octal (012), hexadecimal (0x2f) - and binary (0b1001). - -* Fix problem with getopt_compat not matching +foo=bar. - -* Remove $VERSION_STRING for production versions. - -Changes in version 2.25 ------------------------ - -* Change handling of a lone "-" on the command line. It will now be - treated as a non-option unless an explicit specification was passed - to GetOptions. See the manual. - In the old implementation an error was signalled, so no - compatibility breaks are expected from this change. - -* Add $VERSION_STRING. This is the string form of $VERSION. Usually - they are identical, unless it is a pre-release in which case - $VERSION will be (e.g.) 2.2403 and $VERSION_STRING will be "2.24_03". - -Changes in version 2.24 ------------------------ - -* Add object oriented interface: - - use Getopt::Long; - $p = new Getopt::Long::Parser; - $p->configure(...configuration options...); - if ($p->getoptions(...options descriptions...)) ... - -* Add configuration at 'use' time: - - use Getopt::Long qw(:config no_ignore_case bundling); - -* Add configuration options "gnu_getopt" and "gnu_compat". - - "gnu_compat" controls whether --opt= is allowed, and what it should - do. Without "gnu_compat", --opt= gives an error. With "gnu_compat", - --opt= will give option "opt" and empty value. - This is the way GNU getopt_long does it. - - "gnu_getopt" is a short way of setting "gnu_compat bundling permute - no_getopt_compat. With "gnu_getopt", command line handling should be - fully compatible with GNU getopt_long. - -* Correct warnings when the user specified an array or hash - destination using a non-lowercase option, e.g. "I=s@". - -* Correct ambiguous use of 'set' and 'reset' in the Configuration - section of the documentation. - -* Add configuration option "posix_default" to reset to defaults as if - POSIXLY_CORRECT were set. - -* Disallow "no" prefix on configuration options "default", "prefix" and - "prefix_pattern". - -* Add a section "Trouble Shooting" to the documentation, with - frequently asked questions. - -Changes in version 2.23 ------------------------ - -* When a call-back routine issues 'die', messages starting with "!" - are treated specially. Currently, only "!FINISH" is recognised (see - the next bullet point). Other messages that start with "!" are - ignored. - -* Change 'die("FINISH") (see changes in 2.21) to die("!FINISH"). This - is an incompatible change, but I guess noone is using this yet. - -Changes in version 2.22 ------------------------ - -* Fixes a bug in the combination of aliases and negation. - - Old: "foo|bar!" allowed negation on foo, but not on bar. - New: "foo|bar!" allows negation on foo and bar. - - Caveat: "foo|f!", with bundling, issues the warning that negation on - a short option is ignored. To obtain the desired behaviour, use - - "foo!" => \$opt_foo, "f" => \$opt_foo - or - "foo|f" => \$opt_foo, "nofoo" => sub { $opt_foo = 0 } - - Remember that this is _only_ required when bundling is in effect. - -Changes in version 2.21 ------------------------ - -* New documentation. - -* User defined subroutines should use 'die' to signal errors. - -* User defined subroutines can preliminary terminate options - processing by calling die("FINISH"); - -* Correct erroneous install of Getopt::Long manpage. - Previous versions seem to install Getopt::GetoptLong instead of - Getopt::Long. - -Changes in version 2.20 ------------------------ - -* Prevent the magic argument "<>" from being interpreted as option - starter characters if it is the first argument passed. - To use the characters "<>" as option starters, pass "><" instead. - -* Changed license: Getopt::Long may now also be used under the Perl - Artistic License. - -* Changed the file name of the distribution kit from "GetoptLong..." - to "Getopt-Long-..." to match the standards. - -Changes in version 2.19 ------------------------ - -* Fix a warning bug with bundling_override. - -There's no version 2.18 ------------------------ - -Changes in version 2.17 ------------------------ - -* Getopt::Long::config is renamed Getopt::Long::Configure. The old - name will remain supported without being documented. - -* Options can have the specifier '+' to denote that the option value - must be incremented each time the option occurs on the command line. - For example: - - my $more = 2; - Getopt::Long::Configure("bundling"); - GetOptions ("v+" => \$more); - print STDOUT ("more = $more\n"); - - will print "more = 3" when called with "-v", "more = 4" when called - with "-vv" (or "-v -v"), and so on. - -* Getopt::Long now uses autoloading. This substantially reduces the - resources required to 'use Getopt::Long' (about 100 lines of over - 1300 total). - -* It is now documented that global option variables like $opt_foo - need to be declared using 'use vars ...' when running under 'use - strict'. - -* To install, it is now required to use the official procedure: - - perl Makefile.PL - make - make test - make install - -Changes in version 2.16 ------------------------ - -* A couple of small additional fixes to the $` $& $' fixes. - -* The option prefix can be set using config("prefix=...") or, more - powerful, with config("prefix_pattern=..."); see the documentation - for details. - -* More 'perl -w' warnings eliminated for obscure cases of bundling. - -This version is identical to 2.15, which was not released. - -There's no version 2.14 ------------------------ - -Changes in version 2.13 ------------------------ - -* All regexps are changed to avoid the use of $`, $& and $'. Using one - of these causes all pattern matches in the program to be much slower - than necessary. - -* Configuration errors are signalled using die() and will cause the - program to be terminated (unless eval{...} or $SIG{__DIE__} is - used). - -* Option parsing errors are now signalled with calls to warn(). - -* In option bundles, numeric values may be embedded in the bundle - (e.g. -al24w80). - -* More 'perl -w' warnings eliminated for obscure cases of bundling. - -* Removed non-standard version number matching. Version 1.121 is now - more than 1.12 but less than 1.13. - -Changes in version 2.12 ------------------------ - -* A single question mark is allowed as an alias to an option, e.g. - - GetOptions ("help|?", ...) - -Changes in version 2.11 ------------------------ - -* User linkage may be an object, provided the object is really a hash. - - For example: - - { package Foo; - sub new () { return bless {}; } - } - - my $linkage = Foo->new(); - - GetOptions ($linkage, ... ); - -* Some bug fixes in handling obscure cases of pass-through. - -Changes in version 2.9 ----------------------- - -* A new way to configure Getopt::Long. Instead of setting module local - variables, routine Getopt::Long::config can be called with the names - of options to be set or reset, e.g. - - Getopt::Long::config ("no_auto_abbrev", "ignore_case"); - - Configuring by using the module local variables is deprecated, but - it will continue to work for backwark compatibility. - -Changes in version 2.6 ----------------------- - -* Handle ignorecase even if autoabbrev is off. - -* POD corrections. - -Changes in version 2.4 ----------------------- - -* Pass-through of unrecognized options. Makes it easy to write wrapper - programs that process some of the command line options but pass the - others to another program. - -* Options can be of type HASH, now you can say - - --define foo=bar - - and have $opt_define{"foo"} set to "bar". - -* An enhanced skeleton program, skel2.pl, that combines the power of - Getopt::Long with Pod::Usage. - Module Pod::Usage can be obtained from CPAN, - http://www.perl.com/CPAN/authors/Brad_Appleton. - -Possible incompatibility in version 2.4 ---------------------------------------- - -Previous versions of Getopt::Long always downcased the option variable -names when ignorecase was in effect. This bug has been corrected. As a -consequence, &GetOptions ("Foo") will now set variable $opt_Foo -instead of $opt_foo. - diff --git a/lib/Getopt/Long/README b/lib/Getopt/Long/README deleted file mode 100644 index b1b8e2a8f4..0000000000 --- a/lib/Getopt/Long/README +++ /dev/null @@ -1,214 +0,0 @@ -Module Getopt::Long - extended processing of command line options -================================================================= - -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. -In general, this means that command line options can have long names -instead of single letters, and are introduced with a double dash `--'. - -Optionally, Getopt::Long can support the traditional bundling of -single-letter command line options. - -Getopt::Long is part of the Perl 5 distribution. It is the successor -of newgetopt.pl that came with Perl 4. It is fully upward compatible. -In fact, the Perl 5 version of newgetopt.pl is just a wrapper around -the module. - -For complete documentation, see the Getopt::Long POD document or use -the command - - perldoc Getopt::Long - -FEATURES -======== - -* Long option names - -Major advantage of using long option names is that it is much easier -to memorize the option names. Using single-letter names one quickly -runs into the problem that there is no logical relationship between -the semantics of the selected option and its option letter. -Disadvantage is that it requires more typing. Getopt::Long provides -for option name abbreviation, so option names may be abbreviated to -uniqueness. Also, modern shells like Cornell's tcsh support option -name completion. As a rule of thumb, you can use abbreviations freely -while running commands interactively but always use the full names in -scripts. - -Examples (POSIX): - - --long --width=80 --height=24 - -Extensions: - - -long (convenience) +width=80 (deprecated) -height 24 (traditional) - -By default, long option names are case insensitive. - -* Single-letter options and bundling - -When single-letter options are requested, Getopt::Long allows the -option names to be bundled, e.g. "-abc" is equivalent to "-a -b -c". -In this case, long option names must be introduced with the POSIX "--" -introducer. - -Examples: - - -lgAd (bundle) -xw 80 (bundle, w takes a value) -xw80 (same) - even -l24w80 (l = 24 and w = 80) - -By default, single-letter option names are case sensitive. - -* Flexibility: - - - options can have alternative names, using an alternative name - will behave as if the primary name was used; - - options can be negatable, e.g. "debug" will switch it on, while - "nodebug" will switch it off. - - options can set values, but also add values producing an array - of values instead of a single scalar value, or set values in a hash. - - options can have multiple values, e.g., "--position 25 624". - -* Options linkage - -Using Getopt::Long gives the programmer ultimate control over the -command line options and how they must be handled: - - - by setting a global variable in the calling program; - - by setting a specified variable; - - by entering the option name and the value in an associative array - (hash) or object (if it is a blessed hash); - - by calling a user-specified subroutine with the option name and - the value as arguments (for hash options: the name, key and value); - - combinations of the above. - -* Customization: - -The module can be customized by specifying settings in the 'use' -directive, or by calling a special method, Getopt::Long::Configure. -For example, the following two cases are functionally equal: - - use Getopt::Long qw(:config bundling no_ignore_case); - -and - - use Getopt::Long; - Getopt::Long::Configure qw(bundling no_ignore_case); - -Some of the possible customizations. Most of them take a "no_" prefix -to reverse the effect: - - - default - - Restore default settings. - - - auto_abbrev - - Allow option names to be abbreviated to uniqueness. - - - getopt_compat - - Allow '+' to start options. - - - gnu_compat - - Compatibility with GNU getopt_long(). - - - permute - - require_order - - Whether non-options are allowed to be mixed with options. - - permute means that - - -foo arg1 -bar arg2 arg3 - - is equivalent to - - -foo -bar arg1 arg2 arg3 - - (provided -foo does not take an argument value). - - require_order means that options processing - terminates when the first non-option is encountered. - - -foo arg1 -bar arg2 arg3 - - is equivalent to - - -foo -- arg1 -bar arg2 arg3 - - - bundling - - Setting this variable to a non-zero value will allow - single-character options to be bundled. To distinguish bundles - from long option names, long options must be introduced with - "--" and single-character options (and bundles) with "-". - - - ignore_case - - Ignore case when matching options. - - - pass_through - - Do not issue error messages for unknown options, but leave - them (pass-through) in @ARGV. - - - prefix - - The string that starts options. See also prefix_pattern. - - - prefix_pattern - - A Perl pattern that identifies the strings that introduce - options. Default is --|-|\+ unless environment variable - POSIXLY_CORRECT has been set, in which case it is --|-. - - - long_prefix_pattern - - A perl pattern that is used to identify which prefixes - should be treated as long style. Any prefixes that don't - match this pattern will have short option semantics. - Defaults to --. - - - debug - - Enable copious debugging output. - -* Object oriented interface: - -Using the object oriented interface, multiple parser objects can be -instantiated, each having their own configuration settings: - - $p1 = new Getopt::Long::Parser (config => ["bundling"]); - $p2 = new Getopt::Long::Parser (config => ["posix"]); - if ($p1->getoptions(...options descriptions...)) ... - -AVAILABILITY -============ - -The official version for module Getopt::Long comes with the Perl 5 -distribution. -Newer versions will be made available on the Comprehensive Perl Archive -Network (CPAN), see "http://www.perl.com/CPAN/authors/Johan_Vromans". -Or use the CPAN search engine: - http://search.cpan.org/search?mode=module&query=Getopt::Long - http://search.cpan.org/search?module=Getopt::Long - -COPYRIGHT AND DISCLAIMER -======================== - -Module Getopt::Long is Copyright 2009,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 -Foundation; either version 2 of the License, or (at your option) any -later version. - -------------------------------------------------------------------- -Johan Vromans jvromans@squirrel.nl -Squirrel Consultancy Exloo, the Netherlands -http://www.squirrel.nl http://www.squirrel.nl/people/jvromans ------------------- "Arms are made for hugging" -------------------- diff --git a/lib/Getopt/Long/t/gol-basic.t b/lib/Getopt/Long/t/gol-basic.t deleted file mode 100644 index 1ad5b75ac5..0000000000 --- a/lib/Getopt/Long/t/gol-basic.t +++ /dev/null @@ -1,31 +0,0 @@ -#!./perl -w - -no strict; - -BEGIN { - if ($ENV{PERL_CORE}) { - @INC = '../lib'; - chdir 't'; - } -} - -use Getopt::Long qw(:config no_ignore_case); -my $want_version="2.24"; -die("Getopt::Long version $want_version required--this is only version ". - $Getopt::Long::VERSION) - unless $Getopt::Long::VERSION ge $want_version; - -print "1..9\n"; - -@ARGV = qw(-Foo -baR --foo bar); -undef $opt_baR; -undef $opt_bar; -print (GetOptions("foo", "Foo=s") ? "" : "not ", "ok 1\n"); -print ((defined $opt_foo) ? "" : "not ", "ok 2\n"); -print (($opt_foo == 1) ? "" : "not ", "ok 3\n"); -print ((defined $opt_Foo) ? "" : "not ", "ok 4\n"); -print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n"); -print ((@ARGV == 1) ? "" : "not ", "ok 6\n"); -print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n"); -print (!(defined $opt_baR) ? "" : "not ", "ok 8\n"); -print (!(defined $opt_bar) ? "" : "not ", "ok 9\n"); diff --git a/lib/Getopt/Long/t/gol-compat.t b/lib/Getopt/Long/t/gol-compat.t deleted file mode 100644 index fe4f746194..0000000000 --- a/lib/Getopt/Long/t/gol-compat.t +++ /dev/null @@ -1,39 +0,0 @@ -#!./perl -w - -no strict; - -BEGIN { - if ($ENV{PERL_CORE}) { - @INC = '../lib'; - chdir 't'; - } -} - -{ - # Silence the deprecation warnings from newgetopt.pl for the purpose - # of testing. These tests will be removed along with newgetopt.pl in - # the next major release of perl. - local $SIG{__WARN__} = sub { - if ($_[0] !~ /deprecated/) { - print(STDERR @_); - } - }; - require "newgetopt.pl"; -} - -print "1..9\n"; - -@ARGV = qw(-Foo -baR --foo bar); -$newgetopt::ignorecase = 0; -$newgetopt::ignorecase = 0; -undef $opt_baR; -undef $opt_bar; -print "ok 1\n" if NGetOpt ("foo", "Foo=s"); -print ((defined $opt_foo) ? "" : "not ", "ok 2\n"); -print (($opt_foo == 1) ? "" : "not ", "ok 3\n"); -print ((defined $opt_Foo) ? "" : "not ", "ok 4\n"); -print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n"); -print ((@ARGV == 1) ? "" : "not ", "ok 6\n"); -print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n"); -print (!(defined $opt_baR) ? "" : "not ", "ok 8\n"); -print (!(defined $opt_bar) ? "" : "not ", "ok 9\n"); diff --git a/lib/Getopt/Long/t/gol-linkage.t b/lib/Getopt/Long/t/gol-linkage.t deleted file mode 100644 index df975c8b31..0000000000 --- a/lib/Getopt/Long/t/gol-linkage.t +++ /dev/null @@ -1,93 +0,0 @@ -#!./perl -w - -no strict; - -BEGIN { - if ($ENV{PERL_CORE}) { - @INC = '../lib'; - chdir 't'; - } -} - -use Getopt::Long; - -print "1..33\n"; - -@ARGV = qw(-Foo -baR --foo bar); -Getopt::Long::Configure ("no_ignore_case"); -%lnk = (); -print "ok 1\n" if GetOptions (\%lnk, "foo", "Foo=s"); -print ((defined $lnk{foo}) ? "" : "not ", "ok 2\n"); -print (($lnk{foo} == 1) ? "" : "not ", "ok 3\n"); -print ((defined $lnk{Foo}) ? "" : "not ", "ok 4\n"); -print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 5\n"); -print ((@ARGV == 1) ? "" : "not ", "ok 6\n"); -print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n"); -print (!(exists $lnk{baR}) ? "" : "not ", "ok 8\n"); - -@ARGV = qw(-Foo -baR --foo bar); -Getopt::Long::Configure ("default","no_ignore_case"); -%lnk = (); -my $foo; -print "ok 9\n" if GetOptions (\%lnk, "foo" => \$foo, "Foo=s"); -print ((defined $foo) ? "" : "not ", "ok 10\n"); -print (($foo == 1) ? "" : "not ", "ok 11\n"); -print ((defined $lnk{Foo}) ? "" : "not ", "ok 12\n"); -print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 13\n"); -print ((@ARGV == 1) ? "" : "not ", "ok 14\n"); -print (($ARGV[0] eq "bar") ? "" : "not ", "ok 15\n"); -print (!(exists $lnk{foo}) ? "" : "not ", "ok 16\n"); -print (!(exists $lnk{baR}) ? "" : "not ", "ok 17\n"); -print (!(exists $lnk{bar}) ? "" : "not ", "ok 18\n"); - -@ARGV = qw(/Foo=-baR --bar bar); -Getopt::Long::Configure ("default","prefix_pattern=--|/|-|\\+","long_prefix_pattern=--|/"); -%lnk = (); -my $bar; -print "ok 19\n" if GetOptions (\%lnk, "bar" => \$bar, "Foo=s"); -print ((defined $bar) ? "" : "not ", "ok 20\n"); -print (($bar == 1) ? "" : "not ", "ok 21\n"); -print ((defined $lnk{Foo}) ? "" : "not ", "ok 22\n"); -print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 23\n"); -print ((@ARGV == 1) ? "" : "not ", "ok 24\n"); -print (($ARGV[0] eq "bar") ? "" : "not ", "ok 25\n"); -print (!(exists $lnk{foo}) ? "" : "not ", "ok 26\n"); -print (!(exists $lnk{baR}) ? "" : "not ", "ok 27\n"); -print (!(exists $lnk{bar}) ? "" : "not ", "ok 28\n"); -{ - my $errors; - %lnk = (); - local $SIG{__WARN__}= sub { $errors.=join("\n",@_,'') }; - - @ARGV = qw(/Foo=-baR); - Getopt::Long::Configure ("default","bundling","ignore_case_always", - "prefix_pattern=--|/|-|\\+","long_prefix_pattern=--"); - %lnk = (); - undef $bar; - GetOptions (\%lnk, "bar" => \$bar, "Foo=s"); - print (($errors=~/Unknown option:/) ? "" : "not ", "ok 29\n"); - $errors=""; - %lnk = (); - undef $bar; - @ARGV = qw(/Foo=-baR); - Getopt::Long::Configure ("default","bundling","ignore_case_always", - "prefix_pattern=--|/|-|\\+","long_prefix_pattern=--|/"); - GetOptions (\%lnk, "bar" => \$bar, "Foo=s"); - print (($errors eq '') ? "" : "not ", "ok 30\n"); - print ((defined $lnk{Foo}) ? "" : "not ", "ok 31\n"); - print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 32\n"); -} - -{ - # Allow hashes to overload "". - # This used to fail up to 2.34. - # Thanks to Yves Orton. - my $blessed = bless(\%lnk, "OverLoad::Test"); - - @ARGV = qw(--foo bar); - Getopt::Long::Configure("default"); - print "not" unless GetOptions (\%lnk, "foo=s" => \$foo); - print "ok 33\n"; - package Overload::Test; - use overload '""' => sub{ die "Bad mojo!" }; -} diff --git a/lib/Getopt/Long/t/gol-oo.t b/lib/Getopt/Long/t/gol-oo.t deleted file mode 100644 index df49cb63b2..0000000000 --- a/lib/Getopt/Long/t/gol-oo.t +++ /dev/null @@ -1,31 +0,0 @@ -#!./perl -w - -no strict; - -BEGIN { - if ($ENV{PERL_CORE}) { - @INC = '../lib'; - chdir 't'; - } -} - -use Getopt::Long; -my $want_version="2.24"; -die("Getopt::Long version $want_version required--this is only version ". - $Getopt::Long::VERSION) - unless $Getopt::Long::VERSION ge $want_version; -print "1..9\n"; - -@ARGV = qw(-Foo -baR --foo bar); -my $p = new Getopt::Long::Parser (config => ["no_ignore_case"]); -undef $opt_baR; -undef $opt_bar; -print "ok 1\n" if $p->getoptions ("foo", "Foo=s"); -print ((defined $opt_foo) ? "" : "not ", "ok 2\n"); -print (($opt_foo == 1) ? "" : "not ", "ok 3\n"); -print ((defined $opt_Foo) ? "" : "not ", "ok 4\n"); -print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n"); -print ((@ARGV == 1) ? "" : "not ", "ok 6\n"); -print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n"); -print (!(defined $opt_baR) ? "" : "not ", "ok 8\n"); -print (!(defined $opt_bar) ? "" : "not ", "ok 9\n"); diff --git a/lib/Getopt/Long/t/gol-xargv.t b/lib/Getopt/Long/t/gol-xargv.t deleted file mode 100644 index 52294e8727..0000000000 --- a/lib/Getopt/Long/t/gol-xargv.t +++ /dev/null @@ -1,33 +0,0 @@ -#!./perl -w - -no strict; - -BEGIN { - if ($ENV{PERL_CORE}) { - @INC = '../lib'; - chdir 't'; - } -} - -use Getopt::Long qw(GetOptionsFromArray :config no_ignore_case); -my $want_version="2.3501"; -die("Getopt::Long version $want_version required--this is only version ". - $Getopt::Long::VERSION) - unless $Getopt::Long::VERSION ge $want_version; - -print "1..10\n"; - -my @argv = qw(-Foo -baR --foo bar); -@ARGV = qw(foo bar); -undef $opt_baR; -undef $opt_bar; -print (GetOptionsFromArray(\@argv, "foo", "Foo=s") ? "" : "not ", "ok 1\n"); -print ((defined $opt_foo) ? "" : "not ", "ok 2\n"); -print (($opt_foo == 1) ? "" : "not ", "ok 3\n"); -print ((defined $opt_Foo) ? "" : "not ", "ok 4\n"); -print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n"); -print ((@argv == 1) ? "" : "not ", "ok 6\n"); -print (($argv[0] eq "bar") ? "" : "not ", "ok 7\n"); -print (!(defined $opt_baR) ? "" : "not ", "ok 8\n"); -print (!(defined $opt_bar) ? "" : "not ", "ok 9\n"); -print ("@ARGV" eq "foo bar" ? "" : "not ", "ok 10\n"); diff --git a/lib/Getopt/Long/t/gol-xstring.t b/lib/Getopt/Long/t/gol-xstring.t deleted file mode 100644 index 0d63191383..0000000000 --- a/lib/Getopt/Long/t/gol-xstring.t +++ /dev/null @@ -1,54 +0,0 @@ -#!./perl -w - -no strict; - -BEGIN { - if ($ENV{PERL_CORE}) { - @INC = '../lib'; - chdir 't'; - } -} - -use Getopt::Long qw(GetOptionsFromString :config no_ignore_case); -my $want_version="2.3501"; -die("Getopt::Long version $want_version required--this is only version ". - $Getopt::Long::VERSION) - unless $Getopt::Long::VERSION ge $want_version; - -print "1..14\n"; - -my $args = "-Foo -baR --foo"; -@ARGV = qw(foo bar); -undef $opt_baR; -undef $opt_bar; -print (GetOptionsFromString($args, "foo", "Foo=s") ? "" : "not ", "ok 1\n"); -print ((defined $opt_foo) ? "" : "not ", "ok 2\n"); -print (($opt_foo == 1) ? "" : "not ", "ok 3\n"); -print ((defined $opt_Foo) ? "" : "not ", "ok 4\n"); -print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n"); -print (!(defined $opt_baR) ? "" : "not ", "ok 6\n"); -print (!(defined $opt_bar) ? "" : "not ", "ok 7\n"); -print ("@ARGV" eq "foo bar" ? "" : "not ", "ok 8\n"); - -$args = "-Foo -baR blech --foo bar"; -@ARGV = qw(foo bar); -undef $opt_baR; -undef $opt_bar; -{ my $msg = ""; - local $SIG{__WARN__} = sub { $msg .= "@_" }; - my $ret = GetOptionsFromString($args, "foo", "Foo=s"); - print ($ret ? "not " : "ok 9\n"); - print ($msg =~ /^GetOptionsFromString: Excess data / ? "" : "$msg\nnot ", "ok 10\n"); -} -print ("@ARGV" eq "foo bar" ? "" : "not ", "ok 11\n"); - -$args = "-Foo -baR blech --foo bar"; -@ARGV = qw(foo bar); -undef $opt_baR; -undef $opt_bar; -{ my $ret; - ($ret, $args) = GetOptionsFromString($args, "foo", "Foo=s"); - print ($ret ? "" : "not ", "ok 12\n"); - print ("@$args" eq "blech bar" ? "" : "@$args\nnot ", "ok 13\n"); -} -print ("@ARGV" eq "foo bar" ? "" : "not ", "ok 14\n"); |