diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-04-29 01:58:58 +0300 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-04-28 20:40:41 +0000 |
| commit | 95b63a389ed86efed1a2fa9fd24931d56aac6070 (patch) | |
| tree | aeb1bc30a3a260876b428893c2b1a0c94fc4d6bd /pp_sys.c | |
| parent | 899be1018553cb37b5cccbe4f65d169fd1c17028 (diff) | |
| download | perl-95b63a389ed86efed1a2fa9fd24931d56aac6070.tar.gz | |
reduce gcc -ansi -pedantic noise plus a suggestion
Message-ID: <44527402.8000506@gmail.com>
p4raw-id: //depot/perl@28008
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -453,7 +453,7 @@ PP(pp_warn) if (!tmps || !len) tmpsv = sv_2mortal(newSVpvs("Warning: something's wrong")); - Perl_warn(aTHX_ "%"SVf, tmpsv); + Perl_warn(aTHX_ "%"SVf, (void*)tmpsv); RETSETYES; } @@ -517,7 +517,7 @@ PP(pp_die) if (!tmps || !len) tmpsv = sv_2mortal(newSVpvs("Died")); - DIE(aTHX_ "%"SVf, tmpsv); + DIE(aTHX_ "%"SVf, (void*)tmpsv); } /* I/O. */ @@ -836,7 +836,7 @@ PP(pp_tie) stash = gv_stashsv(*MARK, FALSE); if (!stash || !(gv = gv_fetchmethod(stash, methname))) { DIE(aTHX_ "Can't locate object method \"%s\" via package \"%"SVf"\"", - methname, *MARK); + methname, (void*)*MARK); } ENTER; PUSHSTACKi(PERLSI_MAGIC); |