From 6f207bd3ddac24959aa7f00f2d7a66f116dcc7ed Mon Sep 17 00:00:00 2001
From: Andy Lester <andy@petdance.com>
Date: Mon, 24 Apr 2006 08:44:51 -0500
Subject: use NOOP macro Message-ID: <20060424184451.GA1479@petdance.com>

p4raw-id: //depot/perl@27958
---
 op.c | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index 52717a2ee8..a8d805c73a 100644
--- a/op.c
+++ b/op.c
@@ -509,7 +509,7 @@ S_cop_free(pTHX_ COP* cop)
 	PerlMemShared_free(cop->cop_warnings);
     if (! specialCopIO(cop->cop_io)) {
 #ifdef USE_ITHREADS
-	/*EMPTY*/
+	NOOP;
 #else
 	SvREFCNT_dec(cop->cop_io);
 #endif
@@ -1649,7 +1649,7 @@ S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my)
 	/* Don't force the C<use> if we don't need it. */
 	SV * const * const svp = hv_fetchs(GvHVn(PL_incgv), ATTRSMODULE_PM, FALSE);
 	if (svp && *svp != &PL_sv_undef)
-	    /*EMPTY*/; 		/* already in %INC */
+	    NOOP;	/* already in %INC */
 	else
 	    Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT,
 			     newSVpvs(ATTRSMODULE), NULL);
@@ -2080,7 +2080,7 @@ Perl_localize(pTHX_ OP *o, I32 lex)
 #if 0
 	list(o);
 #else
-	/*EMPTY*/;
+	NOOP;
 #endif
     else {
 	if ( PL_bufptr > PL_oldbufptr && PL_bufptr[-1] == ','
@@ -3315,7 +3315,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg)
 			repl_has_vars = 1;
 		    }
 		    else if (curop->op_type == OP_PUSHRE)
-			/*EMPTY*/; /* Okay here, dangerous in newASSIGNOP */
+			NOOP; /* Okay here, dangerous in newASSIGNOP */
 		    else
 			break;
 		}
@@ -6150,7 +6150,7 @@ Perl_ck_ftst(pTHX_ OP *o)
     const I32 type = o->op_type;
 
     if (o->op_flags & OPf_REF) {
-	/*EMPTY*/;
+	NOOP;
     }
     else if (o->op_flags & OPf_KIDS && cUNOPo->op_first->op_type != OP_STUB) {
 	SVOP * const kid = (SVOP*)cUNOPo->op_first;
@@ -8226,7 +8226,7 @@ const_sv_xsub(pTHX_ CV* cv)
     dVAR;
     dXSARGS;
     if (items != 0) {
-	/*EMPTY*/;
+	NOOP;
 #if 0
         Perl_croak(aTHX_ "usage: %s::%s()",
                    HvNAME_get(GvSTASH(CvGV(cv))), GvNAME(CvGV(cv)));
-- 
cgit v1.2.1