summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-08 15:39:40 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-08 15:39:40 +0000
commit8b6b16e72bf4dd30bd09781ad50e9f66fd94440b (patch)
treee4f7d3a25be8a7b00eb3fc485a6669b2cde6206c /pp_sys.c
parent13c5b33cae5690f108494286e4d841e38c57677d (diff)
downloadperl-8b6b16e72bf4dd30bd09781ad50e9f66fd94440b.tar.gz
Nuke some more n_a, and convert S_gv_ename from char * to const char *
p4raw-id: //depot/perl@24760
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 7579de8279..fb508b5389 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1009,7 +1009,6 @@ PP(pp_sselect)
struct timeval *tbuf = &timebuf;
I32 growsize;
char *fd_sets[4];
- STRLEN n_a;
#if BYTEORDER != 0x1234 && BYTEORDER != 0x12345678
I32 masksize;
I32 offset;
@@ -1081,7 +1080,7 @@ PP(pp_sselect)
continue;
}
else if (!SvPOK(sv))
- SvPV_force(sv,n_a); /* force string conversion */
+ SvPV_force_nolen(sv); /* force string conversion */
j = SvLEN(sv);
if (j < growsize) {
Sv_Grow(sv, growsize);
@@ -5635,7 +5634,6 @@ PP(pp_syscall)
unsigned long a[20];
register I32 i = 0;
I32 retval = -1;
- STRLEN n_a;
if (PL_tainting) {
while (++MARK <= SP) {
@@ -5658,7 +5656,7 @@ PP(pp_syscall)
else if (*MARK == &PL_sv_undef)
a[i++] = 0;
else
- a[i++] = (unsigned long)SvPV_force(*MARK, n_a);
+ a[i++] = (unsigned long)SvPV_force_nolen(*MARK);
if (i > 15)
break;
}