diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-06-08 15:39:40 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-06-08 15:39:40 +0000 |
commit | 8b6b16e72bf4dd30bd09781ad50e9f66fd94440b (patch) | |
tree | e4f7d3a25be8a7b00eb3fc485a6669b2cde6206c /pp_sys.c | |
parent | 13c5b33cae5690f108494286e4d841e38c57677d (diff) | |
download | perl-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.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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; } |