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

[perl #24589] Bizarre array copy: ???

From:
Father Chrysostomos via RT
Date:
August 15, 2016 05:59
Subject:
[perl #24589] Bizarre array copy: ???
Message ID:
rt-4.0.24-2215-1471240749-130.24589-15-0@perl.org
On Fri Jul 29 14:15:36 2016, sprout wrote:
> But that was when the reduced case stopped dying.  The original script
> still dies in blead.

Another reduced version, which still dies in blead:

#!/usr/bin/perl

sub DoFn {
    my $self;
    *the_crash = \undef;
    &{sub{
        package DB;
        ()=caller 1;
        @args = @DB::args;

        $self;
    }}
}

DoFn( $the_crash );

__END__


-- 

Father Chrysostomos


---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=24589



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