Change 30240 by [EMAIL PROTECTED] on 2007/02/12 20:29:43
Integrate:
[ 29832]
Avoid a SEGV in DBI's test suite, discovered by Andreas.
Probably need to go through and audit to see if there are analagous
places that need tweaking.
Affected files ...
... //depot/perl/perl.c#787 integrate
Differences ...
==== //depot/perl/perl.c#787 (text) ====
Index: perl/perl.c
--- perl/perl.c#786~30147~ 2007-02-06 13:48:59.000000000 -0800
+++ perl/perl.c 2007-02-12 12:29:43.000000000 -0800
@@ -5116,7 +5116,7 @@
{
dVAR;
SV *atsv;
- const line_t oldline = CopLINE(PL_curcop);
+ const line_t oldline = PL_curcop ? CopLINE(PL_curcop) : 0;
CV *cv;
STRLEN len;
int ret;
End of Patch.
