From: Adrian M. Enache <enache@rdslink.ro>
Date: Fri, 22 Aug 2003 11:49:34 +0000 (+0300)
Subject: Re: mysterious bytecode.t failure
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=624443052b04dc0b1338075382c138801760cca4;p=p5sagit%2Fp5-mst-13.2.git

Re: mysterious bytecode.t failure
Message-ID: <20030822084934.GA1257@ratsnest.hole>

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

diff --git a/t/base/lex.t b/t/base/lex.t
index 4166c18..984cdff 100755
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..54\n";
+print "1..55\n";
 
 $x = 'x';
 
@@ -260,3 +260,6 @@ my $test = 52;
 print ((exists $str{foo}      ? "" : "not ")."ok $test\n"); ++$test;
 print ((exists $str{bar}      ? "" : "not ")."ok $test\n"); ++$test;
 print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n"); ++$test;
+
+sub foo::::::bar { print "ok $test\n"; $test++ }
+foo::::::bar;