Change 30085 by [EMAIL PROTECTED] on 2007/01/31 12:14:05
You can't have special blocks if the subroutine has an "anonymous"
name for the debugger, so don't bother checking.
Affected files ...
... //depot/perl/op.c#890 edit
Differences ...
==== //depot/perl/op.c#890 (text) ====
Index: perl/op.c
--- perl/op.c#889~30084~ 2007-01-31 02:29:59.000000000 -0800
+++ perl/op.c 2007-01-31 04:14:05.000000000 -0800
@@ -5368,8 +5368,6 @@
}
if (name || aname) {
- const char * const tname = (name ? name : aname);
-
if (PERLDB_SUBLINE && PL_curstash != PL_debstash) {
SV * const sv = newSV(0);
SV * const tmpstr = sv_newmortal();
@@ -5395,8 +5393,8 @@
}
}
- if (!PL_error_count)
- process_special_blocks(tname, gv, cv);
+ if (name && !PL_error_count)
+ process_special_blocks(name, gv, cv);
}
done:
End of Patch.
