Change 31384: Fix missing PerlIO_releaseFILE in VMS::Stdio::getname().

[Craig A . Berry]

Change 31384 by [EMAIL PROTECTED] on 2007/06/14 18:23:18

        Fix missing PerlIO_releaseFILE in VMS::Stdio::getname().

Affected files ...

... //depot/perl/vms/ext/Stdio/Stdio.xs#18 edit

Differences ...

==== //depot/perl/vms/ext/Stdio/Stdio.xs#18 (text) ====
Index: perl/vms/ext/Stdio/Stdio.xs
--- perl/vms/ext/Stdio/Stdio.xs#17~29144~       2006-10-29 16:33:34.000000000 
-0800
+++ perl/vms/ext/Stdio/Stdio.xs 2007-06-14 11:23:18.000000000 -0700
@@ -1,8 +1,8 @@
 /* VMS::Stdio - VMS extensions to stdio routines 
  *
- * Version:  2.2
+ * Version:  2.3
  * Author:   Charles Bailey  [EMAIL PROTECTED]
- * Revised:  18-Jul-1998
+ * Revised:  14-Jun-2007
  *
  */
 
@@ -199,6 +199,7 @@
            char fname[NAM$C_MAXRSS+1];
            ST(0) = sv_newmortal();
             if (fgetname(stdio,fname) != NULL) sv_setpv(ST(0),fname);
+            PerlIO_releaseFILE(fp,stdio);
 
 void
 rewind(fp)
End of Patch.