diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-20 13:06:13 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-20 13:06:13 +0000 |
| commit | 52ea0aec6f04b4fc36c34aab7cc18f8c14f670c8 (patch) | |
| tree | b7e58407763d8a577bcb59a2de31baaae260addd /perl.c | |
| parent | 2522aa67345a7f37d0050d70f341ab3a0b6165b0 (diff) | |
| download | perl-52ea0aec6f04b4fc36c34aab7cc18f8c14f670c8.tar.gz | |
perl -v was outputting a double v (spotted by Jarkko)
p4raw-id: //depot/perl@24911
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2828,13 +2828,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%"SVf" built for %s", + Perl_form(aTHX_ "\nThis is perl, %"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%"SVf"\n", + Perl_form(aTHX_ "\nThis is perl, %"SVf"\n", vstringify(PL_patchlevel))); PerlIO_printf(PerlIO_stdout(), Perl_form(aTHX_ " built under %s at %s %s\n", |