From 316cf57b585e7de162c0dcdc31670d0d75b6e50e Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Mon, 25 Jun 2001 10:35:51 -0400
Subject: Re: "Deprecated interface" ?? Message-ID:
 <20010625143551.H13819@blackrider>

p4raw-id: //depot/perl@10931
---
 lib/Test.pm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'lib/Test.pm')

diff --git a/lib/Test.pm b/lib/Test.pm
index eef2d38a4d..3dab894ecf 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(@_);
-- 
cgit v1.2.1