This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix deparsing of select(F)
authorDavid Mitchell <davem@iabyn.com>
Wed, 10 Oct 2012 10:32:57 +0000 (11:32 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 10 Oct 2012 15:39:21 +0000 (16:39 +0100)
commitbc1cc2c34ba3dffdb265b796a76b2a144983b053
treef85c8392c3bce61e57917a523fb50105f37632c0
parent327088eb578a0735092b848475594c9f76cc4945
fix deparsing of select(F)

Because select doesn't have a prototype (it's really two different functions
with the same name), the code that handles "first arg as filename" was
skipping select(F). This meant that 'select $fh' was being deparsed as
'select *$fh'.
Make select behave the same as open etc.

(There's still an issue that 'select/open *$fh' is deparsed as
'select/open $fh')
dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t