Upgrade to Pod-Simple-3.08
[perl.git] / lib / newgetopt.pl
1 # $Id: newgetopt.pl,v 1.18 2001/09/21 13:34:59 jv Exp $
2
3 # This library is no longer being maintained, and is included for backward
4 # compatibility with Perl 4 programs which may require it.
5 # It is now just a wrapper around the Getopt::Long module.
6 # This legacy library is deprecated and will be removed in a future
7 # release of perl.
8 #
9 # In particular, this should not be used as an example of modern Perl
10 # programming techniques.
11 #
12 # Suggested alternative: Getopt::Long
13
14 warn( "The 'newgetopt.pl' legacy library is deprecated and will be"
15       . " removed in the next major release of perl. Please use the"
16       . " Getopt::Long module instead." );
17
18 {   package newgetopt;
19
20     # Values for $order. See GNU getopt.c for details.
21     $REQUIRE_ORDER = 0;
22     $PERMUTE = 1;
23     $RETURN_IN_ORDER = 2;
24
25     # Handle POSIX compliancy.
26     if ( defined $ENV{"POSIXLY_CORRECT"} ) {
27         $autoabbrev = 0;        # no automatic abbrev of options (???)
28         $getopt_compat = 0;     # disallow '+' to start options
29         $option_start = "(--|-)";
30         $order = $REQUIRE_ORDER;
31         $bundling = 0;
32         $passthrough = 0;
33     }
34     else {
35         $autoabbrev = 1;        # automatic abbrev of options
36         $getopt_compat = 1;     # allow '+' to start options
37         $option_start = "(--|-|\\+)";
38         $order = $PERMUTE;
39         $bundling = 0;
40         $passthrough = 0;
41     }
42
43     # Other configurable settings.
44     $debug = 0;                 # for debugging
45     $ignorecase = 1;            # ignore case when matching options
46     $argv_end = "--";           # don't change this!
47 }
48
49 use Getopt::Long;
50
51 ################ Subroutines ################
52
53 sub NGetOpt {
54
55     $Getopt::Long::debug = $newgetopt::debug 
56         if defined $newgetopt::debug;
57     $Getopt::Long::autoabbrev = $newgetopt::autoabbrev 
58         if defined $newgetopt::autoabbrev;
59     $Getopt::Long::getopt_compat = $newgetopt::getopt_compat 
60         if defined $newgetopt::getopt_compat;
61     $Getopt::Long::option_start = $newgetopt::option_start 
62         if defined $newgetopt::option_start;
63     $Getopt::Long::order = $newgetopt::order 
64         if defined $newgetopt::order;
65     $Getopt::Long::bundling = $newgetopt::bundling 
66         if defined $newgetopt::bundling;
67     $Getopt::Long::ignorecase = $newgetopt::ignorecase 
68         if defined $newgetopt::ignorecase;
69     $Getopt::Long::ignorecase = $newgetopt::ignorecase 
70         if defined $newgetopt::ignorecase;
71     $Getopt::Long::passthrough = $newgetopt::passthrough 
72         if defined $newgetopt::passthrough;
73
74     &GetOptions;
75 }
76
77 ################ Package return ################
78
79 1;
80
81 ################ End of newgetopt.pl ################