From: Florian Ragwitz Date: Wed, 4 Feb 2009 21:56:38 +0000 (+0100) Subject: Avoid warnings due to unused variables. X-Git-Tag: v0.07~10 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=1b0e71d2be514235f4f6b5d6d167aa543b536489;p=perl%2Fmodules%2FScope-Upper.git Avoid warnings due to unused variables. --- diff --git a/Upper.xs b/Upper.xs index c7b3a6e..d628f1d 100644 --- a/Upper.xs +++ b/Upper.xs @@ -578,6 +578,8 @@ STATIC void su_unwind(pTHX_ void *ud_) { SV **savesp = MY_CXT.savesp; I32 mark; + PERL_UNUSED_VAR(ud_); + if (savesp) PL_stack_sp = savesp; @@ -723,6 +725,7 @@ void CLONE(...) PROTOTYPE: DISABLE CODE: + PERL_UNUSED_VAR(items); #if SU_THREADSAFE MY_CXT_CLONE; #endif /* SU_THREADSAFE */