diff options
Diffstat (limited to 'lib/Getopt/Std.pm')
| -rw-r--r-- | lib/Getopt/Std.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/Getopt/Std.pm b/lib/Getopt/Std.pm index c2cd1234f4..390bf14e96 100644 --- a/lib/Getopt/Std.pm +++ b/lib/Getopt/Std.pm @@ -42,8 +42,7 @@ the argument or 1 if no argument is specified. @ISA = qw(Exporter); @EXPORT = qw(getopt getopts); - -# $RCSfile: getopt.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:58 $ +$VERSION = $VERSION = '1.01'; # Process single-character switches with switch clustering. Pass one argument # which is a string containing all switches that take an argument. For each @@ -145,7 +144,7 @@ sub getopts ($;$) { } } else { - print STDERR "Unknown option: $first\n"; + warn "Unknown option: $first\n"; ++$errs; if($rest ne '') { $ARGV[0] = "-$rest"; |