This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Restore the warning previously issued by (-l $fh)
authorRicardo Signes <rjbs@cpan.org>
Tue, 7 May 2013 22:10:17 +0000 (18:10 -0400)
committerRicardo Signes <rjbs@cpan.org>
Wed, 8 May 2013 13:58:35 +0000 (09:58 -0400)
commitcd22fad3cbcea929e5998c8cd6d89ca3108f2aa5
tree0c9e5fc156aa3361ffb7efc07621977d07be8fe5
parent59b86f4bb520d35de8986fdf650c667e217cd9ba
Restore the warning previously issued by (-l $fh)

This is a partial reversion of 433644eed8, which removed a
secondary, short-circuiting behavior when the warning was issued.

Now, the warning is issued, but the normal behavior (treat the
handle as a string) is maintained.  This work was done after
subsequent refactoring to doio.c, so it couldn't be just a
reversion with the "return" statement removed.
doio.c
t/lib/warnings/doio
t/op/filetest.t