diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-08-22 14:49:34 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-22 13:52:26 +0000 |
| commit | 624443052b04dc0b1338075382c138801760cca4 (patch) | |
| tree | c66bb5835425540585ee34aa50234e407f16d62e | |
| parent | 6bfdb09083d89dfe43ccf6d8291df274a50c28e6 (diff) | |
| download | perl-624443052b04dc0b1338075382c138801760cca4.tar.gz | |
Re: mysterious bytecode.t failure
Message-ID: <20030822084934.GA1257@ratsnest.hole>
p4raw-id: //depot/perl@20840
| -rwxr-xr-x | t/base/lex.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index 4166c18194..984cdff39b 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; |