Change 31032 by [EMAIL PROTECTED] on 2007/04/23 13:10:56
A safer version of CopFILE, by Jarkko
Affected files ...
... //depot/perl/cop.h#140 edit
Differences ...
==== //depot/perl/cop.h#140 (text) ====
Index: perl/cop.h
--- perl/cop.h#139~30817~ 2007-03-31 16:15:15.000000000 -0700
+++ perl/cop.h 2007-04-23 06:10:56.000000000 -0700
@@ -213,7 +213,8 @@
# else
# define CopFILEAVx(c) (GvAV(CopFILEGV(c)))
# endif
-# define CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : NULL)
+# define CopFILE(c) (CopFILEGV(c) && GvSV(CopFILEGV(c)) \
+ ? SvPVX(GvSV(CopFILEGV(c))) : NULL)
# define CopSTASH(c) ((c)->cop_stash)
# define CopLABEL(c) ((c)->cop_label)
# define CopSTASH_set(c,hv) ((c)->cop_stash = (hv))
End of Patch.
