[patch] blead@25226 on OpenVMS/vms.c - fopen bug.

From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <42EA3C0F.9040900@qsl.net>

p4raw-id: //depot/perl@25255

diff --git a/vms/vms.c b/vms/vms.c
index 41c907b..a2c4bc6 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -5293,7 +5293,7 @@ setup_cmddsc(pTHX_ char *cmd, int check_img, int *suggest_quote,
       *s = '\0';
 
       /* check that it's really not DCL with no file extension */
-      fp = fopen(resspec,"r","ctx=bin,shr=get");
+      fp = fopen(resspec,"r","ctx=bin","shr=get");
       if (fp) {
         char b[4] = {0,0,0,0};
         read(fileno(fp),b,4);