diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2007-01-01 21:16:13 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-04 15:29:02 +0000 |
| commit | 6c9570dc5de7137a22f5d4e76431529d4f7342b7 (patch) | |
| tree | ce00721c47e0777bbbd4109f6af44ee1eca06fd2 /doio.c | |
| parent | 17dd9954ac1485d9f7bfd39f371dd627e20503a9 (diff) | |
| download | perl-6c9570dc5de7137a22f5d4e76431529d4f7342b7.tar.gz | |
The first three patches from:
Subject: [PATCH] Cleanup SVf arguments (2nd try)
Message-ID: <20070101201613.4120d9ef@r2d2>
Adds (void*) casts to %-p and %p printf arguments
p4raw-id: //depot/perl@29686
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -787,7 +787,7 @@ Perl_nextargv(pTHX_ register GV *gv) if (ckWARN_d(WARN_INPLACE)) Perl_warner(aTHX_ packWARN(WARN_INPLACE), "Can't do inplace edit: %"SVf" would not be unique", - sv); + (void*)sv); do_close(gv,FALSE); continue; } @@ -815,7 +815,7 @@ Perl_nextargv(pTHX_ register GV *gv) if (ckWARN_d(WARN_INPLACE)) Perl_warner(aTHX_ packWARN(WARN_INPLACE), "Can't rename %s to %"SVf": %s, skipping file", - PL_oldname, sv, Strerror(errno) ); + PL_oldname, (void*)sv, Strerror(errno) ); do_close(gv,FALSE); continue; } |