develooper Front page | perl.perl5.porters | Postings from August 2001

Anyone know what 'broke' this morning in the latest perl source?

Thread Next
From:
lvirden
Date:
August 13, 2001 15:24
Subject:
Anyone know what 'broke' this morning in the latest perl source?
Message ID:
20010813161427.72075.qmail@onion.perl.org

I ran this this morning:
rsync -auvz rsync://ftp.linux.activestate.com/perl-current perl-5.7.2/
and now I am seeing this all during the make test step:

comp/require.......................Unbalanced saves: 2 more saves than restores

and later:

op/misc............................PROG: 
BEGIN { @ARGV = qw(a b c d e) }
BEGIN { print "argv <@ARGV>\nbegin <",shift,">\n" }
END { print "end <",shift,">\nargv <@ARGV>\n" }
INIT { print "init <",shift,">\n" }
CHECK { print "check <",shift,">\n" }
EXPECTED:
argv <a b c d e>
begin <a>
check <b>
init <c>
end <d>
argv <e>
GOT:
Unbalanced saves: 2 more saves than restores
argv <a b c d e>
begin <a>
check <b>
init <c>
end <d>
argv <e>
FAILED at test 48

and

op/runlevel........................PROG: 
@a = (1, 2, 3);
foo:
{
  @a = sort { exit(0) } @a;
}
END { print "foobar\n" }
EXPECTED:
foobar
GOT:
Unbalanced saves: 2 more saves than restores
foobar
FAILED at test 17

and

lib/warnings.......................PROG: 
use abc;
delete $INC{"abc.pm"};
require abc;
do "abc.pm";
EXPECTED:
in begin
in mainline
in check
in init
in begin
Too late to run CHECK block at abc.pm line 3.
Too late to run INIT block at abc.pm line 4.
in mainline
in begin
Too late to run CHECK block at abc.pm line 3.
Too late to run INIT block at abc.pm line 4.
in mainline
in end
in end
in end
GOT:
in begin
in mainline
in check
in init
in begin
Too late to run CHECK block at abc.pm line 3.
Too late to run INIT block at abc.pm line 4.
in mainline
in begin
Too late to run CHECK block at abc.pm line 3.
Too late to run INIT block at abc.pm line 4.
in mainline
in end
in end
in end
Unbalanced saves: 6 more saves than restores
PROG: 
require abc;
do "abc.pm";
EXPECTED:
in begin
in mainline
in begin
in mainline
in end
in end
GOT:
in begin
in mainline
in begin
in mainline
in end
in end
Unbalanced saves: 4 more saves than restores
FAILED at test 271

-- 
-- 
"See, he's not just anyone ... he's my son."  Mark Schultz
<URL: mailto:lvirden@cas.org> <URL: http://www.purl.org/NET/lvirden/>
Even if explicitly stated to the contrary, nothing in this posting

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About