$ perl -e 'sub drop { dead() } sub dead { die "with info" } drop()'
with info at -e line 1.
$ perl -e 'sub drop { dead() } sub dead { die "without info\n" } drop()'
without info
$ perl6 -e 'sub drop { dead() }; sub dead { die "with info" }; drop()'
with info
  in sub dead at -e line 1
  in sub drop at -e line 1
  in block <unit> at -e line 1

$ perl6 -e 'sub drop { dead() }; sub dead { die "without info\n" }; drop()'
without info

  in sub dead at -e line 1
  in sub drop at -e line 1
  in block <unit> at -e line 1

$