This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[patch] blead@25226 on OpenVMS/vms.c - fopen bug.
authorJohn E. Malmberg <wb8tyw@qsl.net>
Fri, 29 Jul 2005 10:24:15 +0000 (06:24 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 1 Aug 2005 13:15:25 +0000 (13:15 +0000)
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <42EA3C0F.9040900@qsl.net>

p4raw-id: //depot/perl@25255

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