diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-16 13:00:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-16 13:00:12 +0000 |
| commit | 8e9464f100f3a92c77a6886c84855b4d1f587e2d (patch) | |
| tree | 8d03f37ef55e70dc953d45fe8e88ba481b67a3e1 /perl.c | |
| parent | b7dad2dc25528ee3fc23c1bca51116d48f988b04 (diff) | |
| download | perl-8e9464f100f3a92c77a6886c84855b4d1f587e2d.tar.gz | |
DG-UX threading patches, including a README.dgux,
from Takis Psarogiannakopoulos.
p4raw-id: //depot/perl@10121
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -2287,9 +2287,22 @@ Perl_moreswitches(pTHX_ char *s) s++; return s; case 'v': +#if !defined(DGUX) PerlIO_printf(PerlIO_stdout(), Perl_form(aTHX_ "\nThis is perl, v%"VDf" built for %s", 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, version %vd\n", PL_patchlevel)); + PerlIO_printf(PerlIO_stdout(), + Perl_form(aTHX_ " built under %s at %s %s\n", + OSNAME, __DATE__, __TIME__)); + PerlIO_printf(PerlIO_stdout(), + Perl_form(aTHX_ " OS Specific Release: %s\n", + OSVERSION)); +#endif /* !DGUX */ + #if defined(LOCAL_PATCH_COUNT) if (LOCAL_PATCH_COUNT > 0) PerlIO_printf(PerlIO_stdout(), |