diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-28 19:34:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-28 19:34:58 +0000 |
| commit | 55118cb02d491422c2d48a8ca09d926404a7a628 (patch) | |
| tree | 4bb767ef5fca33ab39640d9b033e27130cb8dfad /lib | |
| parent | 3724d6f49c146fc4418f91f2550cb38405d01c90 (diff) | |
| download | perl-55118cb02d491422c2d48a8ca09d926404a7a628.tar.gz | |
s/print STDERR/warn/ suggested by abigail@fnx.com; add $VERSION
p4raw-id: //depot/perl@3034
Diffstat (limited to 'lib')
| -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"; |