FAQ
--- perlio.c.dist 2006-04-11 23:30:16.000000000 +0300
+++ perlio.c 2006-04-11 23:35:03.000000000 +0300
@@ -2864,7 +2864,6 @@
#endif
stdio = PerlSIO_fopen(path, mode);
if (stdio) {
- PerlIOStdio *s;
if (!f) {
f = PerlIO_allocate(aTHX);
}
@@ -2872,9 +2871,10 @@
mode = PerlIOStdio_mode(mode, tmode);
f = PerlIO_push(aTHX_ f, self, mode, PerlIOArg);
if (f) {
- s = PerlIOSelf(f, PerlIOStdio);
- s->stdio = stdio;
- PerlIOUnix_refcnt_inc(fileno(s->stdio));
+ PerlIOSelf(f, PerlIOStdio)->stdio = stdio;
+ PerlIOUnix_refcnt_inc(fileno(stdio));
+ } else {
+ PerlSIO_fclose(stdio);
}
return f;
}

Search Discussions

  • Nicholas Clark at Apr 11, 2006 at 9:04 pm
    On Tue, Apr 11, 2006 at 11:39:32PM +0300, Jarkko Hietaniemi wrote:

    Thanks applied (change 27770)

    Nicholas Clark

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupperl5-porters @
categoriesperl
postedApr 11, '06 at 8:39p
activeApr 11, '06 at 9:04p
posts2
users2
websiteperl.org

People

Translate

site design / logo © 2022 Grokbase