From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Jun 2005 08:50:06 +0000 (+0000)
Subject: Remove two more unused C<n_a>s
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c3a5487bc880aeef49d16df8ac95c06dc9ed37e;p=p5sagit%2Fp5-mst-13.2.git

Remove two more unused C<n_a>s

p4raw-id: //depot/perl@24750
---

diff --git a/pp_sys.c b/pp_sys.c
index a0aa747..83ac580 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3011,7 +3011,6 @@ PP(pp_fteread)
     STACKED_FTEST_CHECK;
 #ifdef PERL_EFF_ACCESS_R_OK
     if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) {
-	STRLEN n_a;
 	result = PERL_EFF_ACCESS_R_OK(POPpx);
 	if (result == 0)
 	    RETPUSHYES;
@@ -3039,7 +3038,6 @@ PP(pp_ftewrite)
     STACKED_FTEST_CHECK;
 #ifdef PERL_EFF_ACCESS_W_OK
     if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) {
-	STRLEN n_a;
 	result = PERL_EFF_ACCESS_W_OK(POPpx);
 	if (result == 0)
 	    RETPUSHYES;