Re^5: Last Line Read? (Any way to use IO::Handle methods on a "First-Class" Filehandle?)

Did I miss something?

Just that I was trying to answer the parenthetical question in the title.

$ perl - foo
use strict;
use warnings;
use IO::Handle;

my $filename = shift || $0;
my $fh = do {local *FH};
open $fh, $filename or die "failed on $filename: $!\n";
print((\$fh)->input_line_number, "\n") while <$fh>; #1
#print $fh->input_line_number, "\n" while <$fh>; #2
__END__
Name "main::FH" used only once: possible typo at - line 6.
1
2
3
4
5
6
7
8
9
10
[download]

Comment on Re^5: Last Line Read? (Any way to use IO::Handle methods on a "First-Class" Filehandle?) Download Code