diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-05-24 12:20:02 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-05-27 11:26:18 +0200 |
| commit | 8d87852bc15db2551d30680b9ef82903e4c7ca1a (patch) | |
| tree | 1657c70fa5c475f4a186716f666d79121212d46a /perl.c | |
| parent | 553215cca7b3b92e1c96ef45917ee18dc7446644 (diff) | |
| download | perl-8d87852bc15db2551d30680b9ef82903e4c7ca1a.tar.gz | |
Remove DG/UX support.
DG/UX was a Unix sold by Data General. The last release was in April 2001.
It only runs on Data General's own hardware.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 14 |
1 files changed, 0 insertions, 14 deletions
@@ -3464,7 +3464,6 @@ S_minus_v(pTHX) PerlIO * PIO_stdout; if (!sv_derived_from(PL_patchlevel, "version")) upg_version(PL_patchlevel, TRUE); -#if !defined(DGUX) { SV* level= vstringify(PL_patchlevel); #ifdef PERL_PATCHNUM @@ -3496,19 +3495,6 @@ S_minus_v(pTHX) ); SvREFCNT_dec(level); } -#else /* DGUX */ - PIO_stdout = PerlIO_stdout(); -/* Adjust verbose output as in the perl that ships with the DG/UX OS from EMC */ - PerlIO_printf(PIO_stdout, - Perl_form(aTHX_ "\nThis is perl, %"SVf"\n", - SVfARG(vstringify(PL_patchlevel)))); - PerlIO_printf(PIO_stdout, - Perl_form(aTHX_ " built under %s at %s %s\n", - OSNAME, __DATE__, __TIME__)); - PerlIO_printf(PIO_stdout, - Perl_form(aTHX_ " OS Specific Release: %s\n", - OSVERS)); -#endif /* !DGUX */ #if defined(LOCAL_PATCH_COUNT) if (LOCAL_PATCH_COUNT > 0) PerlIO_printf(PIO_stdout, |