Re: Segmentation fault under -d flag

[KES]

Here the another 'segmentation fault'

$cat t.pl
my $x;

$ cat Devel/PkgATCompileTime;
package Devel::PkgAtCompileTime;

use Devel::ImportArgs;

1;

$cat Devel/ImportArgs;
package Devel::ImportArgs;


sub import {
}



package    # hide the package from the PAUSE indexer
    DB;

use Package::Stash;
my $this =  Package::Stash->new( 'DB' );

sub sub {
        # I feel this is a crazy thing and I should not do it here. But 
occasionally I have did it.
         my $all =  $this->get_all_symbols;
         &$DB::sub;
}


sub DB {
}

1;


$ perl -d:PkgAtCompileTime t.pl 
Segmentation fault



07.12.2015, 16:05, "Shlomi Fish" <shlo...@shlomifish.org>:
> Hi KES,
>
> I was able to reduce the code significantly and it seems to be caused by
> Time::HiRes:
>
> https://github.com/shlomif/perl5-Time-HiRes-perl-d-segfault
>
> I was also able to reproduce it on the latest bleadperl. I'm going to report
> this bug.
>
> Thanks!
>
> Regards,
>
>         Shlomi Fish
>