perl5.002beta3

[editor's note: no patch file was found for this release, so no
fine-grained changes]

I can't find the password for our ftp server, so I had to drop it into
ftp://ftp.sems.com/pub/incoming/perl5.002b3.tar.gz, which is a drop
directory you can't ls.

The current plan is that Andy is gonna whack on this a little more, and
then release a gamma in a few days when he's happy with it.  So don't get
carried away.  This is now *late* beta.

In other words, have less than the appropriate amount of fun.  :-)

Larry

3 files changed, 1 insertions, 1 deletions

diff --git a/vms/ext/VMS/stdio/Makefile.PL b/vms/ext/stdio/Makefile.PL
index d6683b4af6..d6683b4af6 100644
--- a/vms/ext/VMS/stdio/Makefile.PL
+++ b/vms/ext/stdio/Makefile.PL
diff --git a/vms/ext/VMS/stdio/stdio.pm b/vms/ext/stdio/stdio.pm
index d8b4ec21ec..d8b4ec21ec 100644
--- a/vms/ext/VMS/stdio/stdio.pm
+++ b/vms/ext/stdio/stdio.pm
diff --git a/vms/ext/VMS/stdio/stdio.xs b/vms/ext/stdio/stdio.xs
index 958c0400d1..737229fe0b 100644
--- a/vms/ext/VMS/stdio/stdio.xs
+++ b/vms/ext/stdio/stdio.xs
@@ -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));
 	    }