This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make sselect call fetch once
authorFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 01:48:47 +0000 (17:48 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 09:45:30 +0000 (01:45 -0800)
commit9d6d5a7950f47e97191ed3cc7a45cd5b06163193
treef8868739ff003eb50eca0b5ad8661dc64450e1e4
parent0f6a9542d4c2a72b49e7de8db6a889863087a163
Make sselect call fetch once

Not only does this commit make four-argument select call fetch once
on each argument (instead of sometimes 0 times), but it also checks
whether the argument is a string after calling fetch now, instead of
before, in determining whether to warn about a non-string.
pp_sys.c
t/lib/warnings/pp_sys
t/op/tie_fetch_count.t