diff options
| -rw-r--r-- | lib/newgetopt.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl index 1de6a6ebb1..e21d396536 100644 --- a/lib/newgetopt.pl +++ b/lib/newgetopt.pl @@ -3,12 +3,18 @@ # This library is no longer being maintained, and is included for backward # compatibility with Perl 4 programs which may require it. # It is now just a wrapper around the Getopt::Long module. +# This legacy library is deprecated and will be removed in a future +# release of perl. # # In particular, this should not be used as an example of modern Perl # programming techniques. # # Suggested alternative: Getopt::Long +warn( "The 'newgetopt.pl' legacy library is deprecated and will be" + . " removed in the next major release of perl. Please use the" + . " Getopt::Long module instead." ); + { package newgetopt; # Values for $order. See GNU getopt.c for details. |