This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 879ced6) | patch
[perl #92728] open.pm without :std should leave std alone
authorFather Chrysostomos <sprout@cpan.org>
Fri, 16 Sep 2011 03:22:28 +0000 (20:22 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 16 Sep 2011 04:33:18 +0000 (21:33 -0700)
commit73f1eacaff720d25abf31d54d9d2daf7a063e910
tree8afe92a0ee4f9aa9afbd3c462cdcee6045afcce8tree | snapshot
parent879ced66a8499e7f2e830f860f796ce3894ca383commit | diff
[perl #92728] open.pm without :std should leave std alone

‘use open’ without :std was turning off layers on STDIN and STDOUT
(but not STDERR), due to a few missing if() conditions and due to an
omission of STDERR (which probably also caused STDERR’s handles to
accumulate through multiple calls to ‘use open ':std'...’).

This fixes that.  (As if you were expecting otherwise.)
lib/open.pm diff | blob | blame | history
lib/open.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.