diff options
| author | Robin Barker <RMBarker@cpan.org> | 2005-01-19 18:30:31 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-01-19 18:32:41 +0000 |
| commit | 014ead4bccac5462b3a10654493980250e84b1d4 (patch) | |
| tree | fc07a2bc355f8c8afe997e97ca5e875d198e3dbf /perl.c | |
| parent | 3e0a3558675c46274592389adb574bfc2a161d7a (diff) | |
| download | perl-014ead4bccac5462b3a10654493980250e84b1d4.tar.gz | |
Further follow-up to 23767
Message-ID: <533D273D4014D411AB1D00062938C4D90849C57D@hotel.npl.co.uk>
p4raw-id: //depot/perl@23824
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2695,13 +2695,13 @@ Perl_moreswitches(pTHX_ char *s) (void *)upg_version(PL_patchlevel); #if !defined(DGUX) PerlIO_printf(PerlIO_stdout(), - Perl_form(aTHX_ "\nThis is perl, v%_ built for %s", + Perl_form(aTHX_ "\nThis is perl, v%"SVf" built for %s", vstringify(PL_patchlevel), ARCHNAME)); #else /* DGUX */ /* Adjust verbose output as in the perl that ships with the DG/UX OS from EMC */ PerlIO_printf(PerlIO_stdout(), - Perl_form(aTHX_ "\nThis is perl, v%_\n", + Perl_form(aTHX_ "\nThis is perl, v%"SVf"\n", vstringify(PL_patchlevel))); PerlIO_printf(PerlIO_stdout(), Perl_form(aTHX_ " built under %s at %s %s\n", |