diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 13:36:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 13:36:28 +0000 |
| commit | 516a5887ee93ac51c15492c01bb2e52bafd5bfaf (patch) | |
| tree | 2edd49fae5fcdc2d692fc0d6fe4779a740171b58 /pp_sys.c | |
| parent | a2e20b18d842b4285c1fb6554e5ff55510293193 (diff) | |
| download | perl-516a5887ee93ac51c15492c01bb2e52bafd5bfaf.tar.gz | |
Medley of -Wall cleanups from Michael Schwen, Hugo van der Sanden,
and Abhijit Menon-Sen.
p4raw-id: //depot/perl@10321
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3970,7 +3970,7 @@ PP(pp_system) if (SP - MARK == 1) { if (PL_tainting) { - char *junk = SvPV(TOPs, n_a); + (void)SvPV_nolen(TOPs); /* stringify for taint check */ TAINT_ENV(); TAINT_PROPER("system"); } @@ -4096,7 +4096,7 @@ PP(pp_exec) #endif else { if (PL_tainting) { - char *junk = SvPV(*SP, n_a); + (void)SvPV_nolen(*SP); /* stringify for taint check */ TAINT_ENV(); TAINT_PROPER("exec"); } |