This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix release mode builds following change 26598
authorSteve Hay <SteveHay@planit.com>
Tue, 3 Jan 2006 15:57:18 +0000 (15:57 +0000)
committerSteve Hay <SteveHay@planit.com>
Tue, 3 Jan 2006 15:57:18 +0000 (15:57 +0000)
p4raw-id: //depot/perl@26608

cop.h

diff --git a/cop.h b/cop.h
index ed57184..8ba4fe9 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -167,8 +167,12 @@ struct cop {
                                 ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
 #  define CopFILEAV(c)         (CopFILE(c) \
                                 ? GvAV(gv_fetchfile(CopFILE(c))) : NULL)
-#  define CopFILEAVx(c)                (assert(CopFILE(c)), \
+#  ifdef DEBUGGING
+#    define CopFILEAVx(c)      (assert(CopFILE(c)), \
                                   GvAV(gv_fetchfile(CopFILE(c))))
+#  else
+#    define CopFILEAVx(c)      (GvAV(gv_fetchfile(CopFILE(c))))
+#  endif
 #  define CopSTASHPV(c)                ((c)->cop_stashpv)
 
 #  ifdef NETWARE
@@ -194,7 +198,11 @@ struct cop {
 #  define CopFILE_set(c,pv)    CopFILEGV_set((c), gv_fetchfile(pv))
 #  define CopFILESV(c)         (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
 #  define CopFILEAV(c)         (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : NULL)
-#  define CopFILEAVx(c)                (assert(CopFILEGV(c)), GvAV(CopFILEGV(c)))
+#  ifdef DEBUGGING
+#    define CopFILEAVx(c)      (assert(CopFILEGV(c)), GvAV(CopFILEGV(c)))
+#  else
+#    define CopFILEAVx(c)      (GvAV(CopFILEGV(c)))
+# endif
 #  define CopFILE(c)           (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
 #  define CopSTASH(c)          ((c)->cop_stash)
 #  define CopSTASH_set(c,hv)   ((c)->cop_stash = (hv))