perl5.002beta3
[perl.git] / vms / ext / stdio / stdio.xs
similarity index 98%
rename from vms/ext/VMS/stdio/stdio.xs
rename to vms/ext/stdio/stdio.xs
index 958c040..737229f 100644 (file)
@@ -90,7 +90,7 @@ vmsfopen(name,...)
                  if (c == 'a') *(name++) = '>';
                }
                *(name++) = '&';
-              if (do_open(gv,mode,name - mode,fp))
+              if (do_open(gv,mode,name - mode,FALSE,0,0,fp))
                 sv_setsv(ST(0),newRV((SV*)gv));
            }