Hi,
The while loop
while(<@check_vip_ports>)
{
$token=pop(@check_vip_ports);
...
}
It is exiting before traversing the entire array. On running it on debug
I found that a function in the perl library is returning a values which
causes the exit as follows:-
File::Glob::csh_glob(/usr/lib/perl5/5.8.2/sparc-linux/File/Glob.pm:137):
137: my $pat = shift;
DB<11> x $_
0 8256
DB<12> r
scalar context return from File::Glob::csh_glob: undef
Anyone familiar with this situation.
Philip
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
