http://www.perlmonks.org?node_id=879413


in reply to filehandle in warning not what I expected...

Perl is just reporting the last file you read from. If you prefer to see the $remedy_file line number in the warning, you can localize perl's recollection of the last file read by putting:
local $.;
just before LOOKUP:. This is a special feature of the $. variable.
--
A math joke: r = | |csc(θ)|+|sec(θ)|-||csc(θ)|-|sec(θ)|| |
Online Fortune Cookie Search