This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e3bc9a0
)
Deprecate getopts.pl with a warning
author
Steffen Mueller
<smueller@cpan.org>
Wed, 2 Sep 2009 18:02:47 +0000
(20:02 +0200)
committer
Steffen Mueller
<smueller@cpan.org>
Wed, 2 Sep 2009 18:02:47 +0000
(20:02 +0200)
lib/getopts.pl
patch
|
blob
|
blame
|
history
diff --git
a/lib/getopts.pl
b/lib/getopts.pl
index
e30820a
..
ec1012a
100644
(file)
--- a/
lib/getopts.pl
+++ b/
lib/getopts.pl
@@
-7,7
+7,11
@@
# programming techniques.
#
# Suggested alternatives: Getopt::Long or Getopt::Std
-#
+
+warn( "The 'getopts.pl' legacy library is deprecated and will be"
+ . " removed in the next major release of perl. Please use the"
+ . " Getopt::Long or Getopt::Std module instead." );
+
;# Usage:
;# do Getopts('a:bc'); # -a takes arg. -b & -c not. Sets opt_* as a
;# # side effect.