segmentation file with $dbline[0]

Hi, following line:

perl -wle '$r=q/print __FILE__;local *dbline = $main::{"_<".__FILE__};print $dbline[0]/;eval $r;'

gives me a segmentation fault for 5.10.1, 5.12.1 but not 5.8.8
OS is linux.

on windows, this line does not segfaults for 5.6.1, 5.004_02, 5.005_03, 5.8.8, 5.12.1, 5.10.0, but segfaults for 5.13.8
perl -wle "$r=q/print __FILE__;local *dbline = $main::{'_<'.__FILE__};print $dbline[0]/;eval $r;"

On windows, to ease struggle with command line, following script could be used
$r=q/
  print __FILE__, "\n";
  print join "; ",sort keys %{"::"};
  local *dbline = ${"::_<(eval 1)"};
  print $dbline[0]/;
eval "$r";


Any ideas on the matter?

TIA,
Vadim.

• segmentation file with $dbline[0] by vadim.konovalov
• Re: segmentation file with $dbline[0] by Brad Gilbert
• RE: segmentation file with $dbline[0] by vadim.konovalov