This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert part of change 27546 related to a /dev/null bug
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 20 Mar 2006 13:03:07 +0000 (13:03 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 20 Mar 2006 13:03:07 +0000 (13:03 +0000)
workaround on VMS, as requested by John E. Malmberg

p4raw-id: //depot/perl@27554

vms/vms.c

index 9f843b3..ea25085 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -11524,7 +11524,7 @@ static int set_features
     }
 
     /* PCP mode requires creating /dev/null special device file */
-    decc_bug_devnull = 0;
+    decc_bug_devnull = 1;
     status = sys_trnlnm("DECC_BUG_DEVNULL", val_str, sizeof(val_str));
     if ($VMS_STATUS_SUCCESS(status)) {
        if ((val_str[0] == 'E') || (val_str[0] == '1') || (val_str[0] == 'T'))