From 065f14eb9d944e9b3262cfef1909b7c914642623 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 13 Oct 2009 13:56:06 +0100
Subject: [PATCH] do subname() is deprecated, so this test from perl 1 needs
 updating.

---
 t/comp/decl.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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';
-- 
1.8.3.1