Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: Why is the error thrown from close(FH) when the error is the missing <> on while(FH)?

by techgrrl (Acolyte)
on Feb 01, 2013 at 03:15 UTC ( #1016432=note: print w/ replies, xml ) Need Help??


in reply to Re: Why is the error thrown from close(FH) when the error is the missing <> on while(FH)?
in thread Why is the error thrown from close(FH) when the error is the missing <> on while(FH)?

Thanks, but do bear in mind, I already know the error, and I fixed it.

This question has nothing to do with the syntax error, it is about trying to understand a diagnostic message, in order to gain wisdom.

I ran deparse, and it printed my code prepended with the word LINE: and followed it with a diagnostic saying the syntax was OK.

$ perl -MO=Deparse -p strip_keys.pl 
LINE: while (defined($_ = <ARGV>)) { use warnings; use strict 'refs'; our($opt_h, $opt_k, $opt_u); my($inline, $device, $config, $file, $context, @contexts); use Getopt::Long; &help unless GetOptions 'h', \$opt_h, 'u:s', \$opt_u, 'k:s', \$opt +_k, 'device:s', \$device; &help if $opt_h; etc. continue { print $_; }
strip_keys.pl syntax OK


Comment on Re^2: Why is the error thrown from close(FH) when the error is the missing <> on while(FH)?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016432]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (15)
As of 2014-12-22 15:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (119 votes), past polls