diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-16 18:14:34 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-02 18:23:42 -0800 |
commit | 0ea86a1054b1b9ede7f0a103059629f7027035e4 (patch) | |
tree | 7042433768e56ef5626f4777243c30cd2f158360 /ext/PerlIO-encoding | |
parent | 90a44ae623db0999c98093c3bb234c1479755a2c (diff) | |
download | perl-0ea86a1054b1b9ede7f0a103059629f7027035e4.tar.gz |
Record errno value in IO handles
Diffstat (limited to 'ext/PerlIO-encoding')
-rw-r--r-- | ext/PerlIO-encoding/encoding.xs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs index cc329d352c..d41227cba2 100644 --- a/ext/PerlIO-encoding/encoding.xs +++ b/ext/PerlIO-encoding/encoding.xs @@ -385,7 +385,10 @@ PerlIOEncode_fill(pTHX_ PerlIO * f) if (avail == 0) PerlIOBase(f)->flags |= PERLIO_F_EOF; else + { PerlIOBase(f)->flags |= PERLIO_F_ERROR; + Perl_PerlIO_save_errno(aTHX_ f); + } } FREETMPS; LEAVE; |