From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 14 Jun 2007 18:23:18 +0000 (+0000)
Subject: Fix missing PerlIO_releaseFILE in VMS::Stdio::getname().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b89086ac06f49c4900b782c8f5c803b4f0092517;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@31384
---

diff --git a/vms/ext/Stdio/Stdio.xs b/vms/ext/Stdio/Stdio.xs
index 2609550..bb475e7 100644
--- a/vms/ext/Stdio/Stdio.xs
+++ b/vms/ext/Stdio/Stdio.xs
@@ -1,8 +1,8 @@
 /* VMS::Stdio - VMS extensions to stdio routines 
  *
- * Version:  2.2
+ * Version:  2.3
  * Author:   Charles Bailey  bailey@newman.upenn.edu
- * Revised:  18-Jul-1998
+ * Revised:  14-Jun-2007
  *
  */
 
@@ -199,6 +199,7 @@ getname(fp)
 	    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)