From: John E. Malmberg <wb8tyw@qsl.net>
Date: Fri, 29 Jul 2005 10:24:15 +0000 (-0400)
Subject: [patch] blead@25226 on OpenVMS/vms.c - fopen bug.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c7d9af3bd40a8ae4d0b1feabf16378e4446d90a;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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);