This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Delete useless references to DG/UX
authorAaron Crane <arc@cpan.org>
Fri, 13 Oct 2017 15:24:42 +0000 (17:24 +0200)
committerAaron Crane <arc@cpan.org>
Sat, 21 Oct 2017 15:53:07 +0000 (16:53 +0100)
perl.h
t/run/switches.t

diff --git a/perl.h b/perl.h
index f159460..1687a8c 100644 (file)
--- a/perl.h
+++ b/perl.h
 #  if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
 #    define BSD_SETPGRP(pid, pgrp)     setpgrp((pid), (pgrp))
 #  else
-#    ifdef HAS_SETPGRP2  /* DG/UX */
+#    ifdef HAS_SETPGRP2
 #      define BSD_SETPGRP(pid, pgrp)   setpgrp2((pid), (pgrp))
 #    endif
 #  endif
 #  if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
 #    define BSD_GETPGRP(pid)           getpgrp((pid))
 #  else
-#    ifdef HAS_GETPGRP2  /* DG/UX */
+#    ifdef HAS_GETPGRP2
 #      define BSD_GETPGRP(pid)         getpgrp2((pid))
 #    endif
 #  endif
index 7f581c5..b11946c 100644 (file)
@@ -294,8 +294,8 @@ is runperl(stderr => 1, prog => '#!perl -M'),
 
 {
     local $TODO = '';   # these ones should work on VMS
-    # there are definitely known build configs where this test will fail
-    # DG/UX comes to mind. Maybe we should remove these special cases?
+    # There may be build configs where this test will fail; DG/UX was one,
+    # but we no longer support it. Maybe we should remove these special cases?
   SKIP:
     {
         skip "Win32 miniperl produces a default archname in -v", 1