diff options
| author | Gisle Aas <gisle@activestate.com> | 2006-01-06 13:57:27 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-01-06 13:57:27 +0000 |
| commit | 7850f74cebcc11cc1e593574033a8cdd463b0a01 (patch) | |
| tree | 1f3fc395261ff7453b4d730d1cfeb4dce0524fd0 /perl.c | |
| parent | c86a4f2e37a2a05a9cad736617540ad66d32fda9 (diff) | |
| download | perl-7850f74cebcc11cc1e593574033a8cdd463b0a01.tar.gz | |
Move "DEVEL####" marker to the 'perl -v' output.
This avoids problem with using STRINGIFY in patchlevel.h
(ref msg <43BE4BAC.6010701@uk.radan.com> posted to p5p).
p4raw-id: //depot/perl@26672
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -3219,7 +3219,11 @@ Perl_moreswitches(pTHX_ char *s) upg_version(PL_patchlevel); #if !defined(DGUX) PerlIO_printf(PerlIO_stdout(), - Perl_form(aTHX_ "\nThis is perl, %"SVf" built for %s", + Perl_form(aTHX_ "\nThis is perl, %"SVf +#ifdef PERL_PATCHNUM + " DEVEL" STRINGIFY(PERL_PATCHNUM) +#endif + " built for %s", vstringify(PL_patchlevel), ARCHNAME)); #else /* DGUX */ |