Re: [blead] make test.deparse unhappy

[Rafael Garcia-Suarez]

Jarkko Hietaniemi wrote:
> ...
> cd t &&
> LD_LIBRARY_PATH=/cluster/members/member0/tmp/jhi/perl-5.9.x:/tmp/jhi/perl-5.9.x
> ./perl TEST -deparse </dev/tty
> ------------------------------------------------------------------------------
> TESTING DEPARSER
> ------------------------------------------------------------------------------
> t/base/cond...............................ok
> t/base/if.................................ok
> t/base/lex................................syntax error at plink line
> 111, near ":"
> Execution of base/lex.t.dp aborted due to compilation errors.
> FAILED--no leader found
> Failed a basic test--cannot continue.

maint isn't happy with this file as well.

Might have been introduced by :

Change 20840 by [EMAIL PROTECTED] on 2003/08/22 13:52:26

        Subject: Re: mysterious bytecode.t failure
        From: Enache Adrian <[EMAIL PROTECTED]>
        Date: Fri, 22 Aug 2003 11:49:34 +0300
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/t/base/lex.t#18 edit

Differences ...

==== //depot/perl/t/base/lex.t#18 (xtext) ====

@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..54\n";
+print "1..55\n";
 
 $x = 'x';
 
@@ -260,3 +260,6 @@
 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;