summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorJohn E. Malmberg <wb8tyw@qsl.net>2005-07-29 06:24:15 -0400
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-08-01 13:15:25 +0000
commit1c7d9af3bd40a8ae4d0b1feabf16378e4446d90a (patch)
treece9d2aa50e0dff96c12353a5da02213d74852d38 /vms
parent2dfe1b172673363674e356ebb04df24a41dfd308 (diff)
downloadperl-1c7d9af3bd40a8ae4d0b1feabf16378e4446d90a.tar.gz
[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
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 41c907be4e..a2c4bc6ae0 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);