diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-22 10:06:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-22 10:06:53 +0000 |
| commit | 894356b32151f778d4d2915c6db38e5d049b115a (patch) | |
| tree | 80e9c55bdd3e19adc9d1ef8cc20c50b2f7756b9d /perl.c | |
| parent | f30a114324770080b9e0b2bcfb9c2278f5e0a290 (diff) | |
| download | perl-894356b32151f778d4d2915c6db38e5d049b115a.tar.gz | |
add patch for printf-style format typechecks (from Robin Barker
<rmb1@cise.npl.co.uk>); fixes for problems so identified
p4raw-id: //depot/perl@4836
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -2194,7 +2194,7 @@ sed %s -e \"/^[^#]/b\" \ -e \"/^#[ ]*undef[ ]/b\" \ -e \"/^#[ ]*endif/b\" \ -e \"s/^#.*//\" \ - %s | %_ -C %_ %s", + %s | %"SVf" -C %"SVf" %s", (PL_doextract ? "-e \"1,/^#/d\n\"" : ""), #else # ifdef __OPEN_VM @@ -2210,7 +2210,7 @@ sed %s -e \"/^[^#]/b\" \ -e '/^#[ ]*undef[ ]/b' \ -e '/^#[ ]*endif/b' \ -e 's/^[ ]*#.*//' \ - %s | %_ %_ %s", + %s | %"SVf" %"SVf" %s", # else Perl_sv_setpvf(aTHX_ cmd, "\ %s %s -e '/^[^#]/b' \ @@ -2224,7 +2224,7 @@ sed %s -e \"/^[^#]/b\" \ -e '/^#[ ]*undef[ ]/b' \ -e '/^#[ ]*endif/b' \ -e 's/^[ ]*#.*//' \ - %s | %_ -C %_ %s", + %s | %"SVf" -C %"SVf" %s", # endif #ifdef LOC_SED LOC_SED, @@ -3054,7 +3054,7 @@ S_incpush(pTHX_ char *p, int addsubdirs) SvPV(libdir,len)); #endif /* .../archname/version if -d .../archname/version/auto */ - Perl_sv_setpvf(aTHX_ subdir, "%_/%s/"PERL_FS_VER_FMT"/auto", libdir, + Perl_sv_setpvf(aTHX_ subdir, "%"SVf"/%s/"PERL_FS_VER_FMT"/auto", libdir, ARCHNAME, (int)PERL_REVISION, (int)PERL_VERSION, (int)PERL_SUBVERSION); if (PerlLIO_stat(SvPVX(subdir), &tmpstatbuf) >= 0 && @@ -3063,7 +3063,7 @@ S_incpush(pTHX_ char *p, int addsubdirs) newSVpvn(SvPVX(subdir), SvCUR(subdir) - sizeof "auto")); /* .../archname if -d .../archname/auto */ - Perl_sv_setpvf(aTHX_ subdir, "%_/%s/auto", libdir, ARCHNAME); + Perl_sv_setpvf(aTHX_ subdir, "%"SVf"/%s/auto", libdir, ARCHNAME); if (PerlLIO_stat(SvPVX(subdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode)) av_push(GvAVn(PL_incgv), |