From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 25 Jun 2001 14:35:51 +0000 (-0400)
Subject: Re: "Deprecated interface" ??
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=316cf57b585e7de162c0dcdc31670d0d75b6e50e;p=p5sagit%2Fp5-mst-13.2.git

Re: "Deprecated interface" ??
Message-ID: <20010625143551.H13819@blackrider>

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

diff --git a/lib/Test.pm b/lib/Test.pm
index eef2d38..3dab894 100644
--- a/lib/Test.pm
+++ b/lib/Test.pm
@@ -9,7 +9,7 @@ use vars (qw($VERSION @ISA @EXPORT @EXPORT_OK $ntest $TestLevel), #public-ish
 	  qw($TESTOUT $ONFAIL %todo %history $planned @FAILDETAIL)#private-ish
          );
 
-$VERSION = '1.17';
+$VERSION = '1.18';
 require Exporter;
 @ISA=('Exporter');
 
@@ -319,11 +319,12 @@ sub skip ($;$$$) {
         return 1;
     } else {
         # backwards compatiblity (I think).  skip() used to be
-        # called like ok() and was expected to fail, which is weird.
-        warn <<WARN if $^W;
-This looks like a skip() using the very old interface.  Please upgrade to
-the documented interface as this has been deprecated.
-WARN
+        # called like ok(), which is weird.  I haven't decided what to do with
+        # this yet.
+#        warn <<WARN if $^W;
+#This looks like a skip() using the very old interface.  Please upgrade to
+#the documented interface as this has been deprecated.
+#WARN
 
 	local($TestLevel) = $TestLevel+1;  #ignore this stack frame
         return &ok(@_);