Select Code to Download

1031 Off_t
1032 Perl_do_tell(pTHX_ GV *gv)
...
1047     SETERRNO(EBADF,RMS_IFI);
1048     return (Off_t)-1;
1049 }

$ perl -MO=Concise -e'tell 1234'
6  <@> leave[1 ref] vKP/REFC ->(end)
...
4        <1> rv2gv sKR/1 ->5
3           <#> gv[*1234] s ->4
-e syntax OK

my $fh = \*STDOUT;
tell( 0+$fh );

my $fh = \*STDOUT;
no strict 'refs';
tell( *{ ''.(0+$fh) } );

# Assuming STDOUT is still located at address 0x814ec28
tell( *135588904 );