develooper Front page | perl.perl5.porters | Postings from May 2010

Re: [perl #74764] -E 'given( goto f ) { f: }' => crash

Thread Previous
From:
Frank Wiegand
Date:
May 1, 2010 13:51
Subject:
Re: [perl #74764] -E 'given( goto f ) { f: }' => crash
Message ID:
1272747096.24363.5.camel@hal2
Am Donnerstag, den 29.04.2010, 01:36 -0700 schrieb Frank Wiegand:
> The following code crashes perl:
> 
>         % perl5.12.0 -E 'given ( goto f ) { f: }'
>         Use of "goto" to jump into a construct is deprecated at -e line 1.
>         perl5.12.0: pp_ctl.c:4005: Perl_pp_leavegiven: Assertion `((cx)->cx_u.cx_subst.sbu_type & 0xf) == 3' failed.
>         zsh: abort      /opt/perl/perl-5.12.0-RC3/bin/perl5.12.0 -E 'given ( goto f ) { f: }
> 
> Yes, I see the deprecated warning.

This one is without the warning:

        % perl-5.12.0-RC3 -wE 'given( do { goto f } ) { f: }'
        perl-5.12.0-RC3: pp_ctl.c:4005: Perl_pp_leavegiven: Assertion `((cx)->cx_u.cx_subst.sbu_type & 0xf) == 3' failed.
        zsh: abort      LC_ALL=C perl-5.12.0-RC3 -wE 'given( do { goto f } ) { f: }'

> Yes, no one would do this.
> But perl should not crash, too.

Still true.


Frank


Thread Previous


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