diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-06-14 18:23:18 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-06-14 18:23:18 +0000 |
| commit | b89086ac06f49c4900b782c8f5c803b4f0092517 (patch) | |
| tree | 5677411a7189e96e4c179d4fb9c9cd0fbee612d3 /vms | |
| parent | ddf4dafe6a94028b5d3447cd24b2c4684c9da64d (diff) | |
| download | perl-b89086ac06f49c4900b782c8f5c803b4f0092517.tar.gz | |
Fix missing PerlIO_releaseFILE in VMS::Stdio::getname().
p4raw-id: //depot/perl@31384
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ext/Stdio/Stdio.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/vms/ext/Stdio/Stdio.xs b/vms/ext/Stdio/Stdio.xs index 26095502e2..bb475e7746 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) |