Bug#706749: perldoc: Minor bug in fileno example

[Dominic Hargreaves]

Control: tags -1 +fixed-upstream

On Sat, May 04, 2013 at 11:07:16AM +0200, Niels Thykier wrote:

> I believe a more accurate example (although a bit more verbose) would
> be:
> 
> """
>     if (fileno(THIS) != -1 && fileno(THIS) == fileno(THAT)) {
>         print "THIS and THAT are dups\n";
>     } elsif (fileno(THIS) != -1 && fileno(THAT) != -1) {
>         print "THIS and THAT have different underlying file descriptors\n";
>     } else {
>         print "At least one of THIS and THAT does not have a real file descriptor\n";
>     }
> """

Thanks, I've pushed a fix based on this upstream:

http://perl5.git.perl.org/perl.git/commitdiff/3231d257

-- 
Dominic Hargreaves | http://www.larted.org.uk/~dom/
PGP key 5178E2A5 from the.earth.li (keyserver,web,email)