summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-08 08:50:06 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-08 08:50:06 +0000
commit4c3a5487bc880aeef49d16df8ac95c06dc9ed37e (patch)
tree4098cbdeb1540dccb3da17720a9630c657339bcb /pp_sys.c
parentcdb061a3fd27d5d1ef0b49f7eca3a56c45076e24 (diff)
downloadperl-4c3a5487bc880aeef49d16df8ac95c06dc9ed37e.tar.gz
Remove two more unused C<n_a>s
p4raw-id: //depot/perl@24750
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index a0aa7472ad..83ac580df3 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;