X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=deb.c;h=0c25225841114985d89f2003fc66af10e1bd2075;hb=2a40f0e39716e28dbf4254a185c6e067b731a67f;hp=052cd06995aa0c31c462324f52d0ac3b097ef266;hpb=3280af22f58e7b37514ed104858e2c2fc55ceeeb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/deb.c b/deb.c
index 052cd06..0c25225 100644
--- a/deb.c
+++ b/deb.c
@@ -28,7 +28,7 @@ deb(const char *pat, ...)
     PerlIO_printf(Perl_debug_log, "0x%lx (%s:%ld)\t",
 		  (unsigned long) thr,
 		  SvTYPE(gv) == SVt_PVGV ? SvPVX(GvSV(gv)) : "<free>",
-		  (long)curcop->cop_line);
+		  (long)PL_curcop->cop_line);
 #else
     PerlIO_printf(Perl_debug_log, "(%s:%ld)\t",
 	SvTYPE(gv) == SVt_PVGV ? SvPVX(GvSV(gv)) : "<free>",