From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 28 Feb 1999 19:34:58 +0000 (+0000)
Subject: s/print STDERR/warn/ suggested by abigail@fnx.com; add $VERSION
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=55118cb02d491422c2d48a8ca09d926404a7a628;p=p5sagit%2Fp5-mst-13.2.git

s/print STDERR/warn/ suggested by abigail@fnx.com; add $VERSION

p4raw-id: //depot/perl@3034
---

diff --git a/lib/Getopt/Std.pm b/lib/Getopt/Std.pm
index c2cd123..390bf14 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";