Skip to content
Browse files

Expand to match eval/^(eval \d+:$FILENAME)/ in addition as suggested …

…by JJORE.
  • Loading branch information...
1 parent 9d3b00e commit 0875f90071a96c2f3451d92c8ed80c1abf8a8c3b Rocky Bernstein committed Mar 12, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 lib/Enbugger/trepan.pm
View
7 lib/Enbugger/trepan.pm
@@ -56,7 +56,8 @@ sub _load_debugger {
=item CLASS-E<gt>_stop ( [OPTION_HASH_REF] )
Set to stop at the next stopping point. OPTIONS_HASH_REF is an
-optional hash reference which can be used to things in the debugger.
+optional hash reference which can be used to set options in the
+debugger.
=cut
@@ -74,8 +75,8 @@ sub _stop {
$^P |= 0x73f;
$DB::event = 'debugger-call';
my ($pkg, $filename, $line) = caller;
- if ($filename =~ /^\(eval \d+\)/) {
- @DB::dbline = map "$_\n", split(/\n/, $DB::eval_string);
+ if ($filename =~ /^\(eval (?:\d+(?:[:].+)?)\)/) {
+ @DB::dbline = map "$_\n", split(/\n/, $DB::eval_string);
}
$DB::in_debugger = 0;
return;

0 comments on commit 0875f90

Please sign in to comment.
Something went wrong with that request. Please try again.