diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-06 13:56:45 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-06 13:56:45 +0000 |
| commit | 3cb0bbe5af1ac1b0e46bbee66b7b457629e7ffa3 (patch) | |
| tree | 53e06029d69787129e9b2245a4648e61fcdb73e1 /perl.c | |
| parent | c4410b1b816ab84616660ccfbce83a639eb24398 (diff) | |
| download | perl-3cb0bbe5af1ac1b0e46bbee66b7b457629e7ffa3.tar.gz | |
support sprintf("v%v", v1.2.3) (works on any string argument, in
fact); add tests for version tuples
p4raw-id: //depot/perl@4998
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2028,8 +2028,8 @@ Perl_moreswitches(pTHX_ char *s) s++; return s; case 'v': - printf("\nThis is perl, v%"UVuf".%"UVuf".%"UVuf" built for %s", - (UV)PERL_REVISION, (UV)PERL_VERSION, (UV)PERL_SUBVERSION, ARCHNAME); + printf(Perl_form(aTHX_ "\nThis is perl, v%v built for %s", + PL_patchlevel, ARCHNAME)); #if defined(LOCAL_PATCH_COUNT) if (LOCAL_PATCH_COUNT > 0) printf("\n(with %d registered patch%s, see perl -V for more detail)", |