From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 13 Oct 2009 12:56:06 +0000 (+0100)
Subject: do subname() is deprecated, so this test from perl 1 needs updating.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=065f14eb9d944e9b3262cfef1909b7c914642623;p=p5sagit%2Fp5-mst-13.2.git

do subname() is deprecated, so this test from perl 1 needs updating.
---

diff --git a/t/comp/decl.t b/t/comp/decl.t
index a4b898c..5056850 100644
--- a/t/comp/decl.t
+++ b/t/comp/decl.t
@@ -11,8 +11,8 @@ ok 5
 
 print "1..7\n";
 
-do one();
-do two();
+one();
+two();
 
 sub two {
     print "ok 2\n";
@@ -26,10 +26,10 @@ if ($x eq $x) {
     sub three {
 	print "ok 3\n";
     }
-    do three();
+    three();
 }
 
-do four();
+four();
 $~ = 'one';
 write;
 $~ = 'two';