in reply to Perl Warning Help

We cannot know what is causing this warning, because we don't know what the subroutines you are calling("health","secureTelnetCommand","pstsqlog") do. The error message sounds like a message from the find utility though, so maybe you are calling that somewhere?

To find your error cause more accurately, insert warnings in between the subroutine calls, like

while ($x != $limit) { foreach $x (@icpList) { warn "start loop"; health($x); warn "health executed"; secureTelnetCommand($x); warn "secureTelnetCommand executed"; pstswlog($x); warn "pstswlog executed"; }

And take a closer look at the subroutine during which the warning shows up.

Or run the program in the debugger (perl -d script.pl)


Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. -- Brian W. Kernighan