Change 29832 by [EMAIL PROTECTED] on 2007/01/15 16:30:37
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/maint-5.8/perl/perl.c#179 edit
Differences ...
==== //depot/maint-5.8/perl/perl.c#179 (text) ====
Index: perl/perl.c
--- perl/perl.c#178~29809~ 2007-01-14 05:47:07.000000000 -0800
+++ perl/perl.c 2007-01-15 08:30:37.000000000 -0800
@@ -5230,7 +5230,7 @@
Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
{
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.
