Re: Sanity Check: Debugging Help Needed!

in reply to Sanity Check: Debugging Help Needed!

Try substituting the following:

if (-d !$dir) { ... by unless (-d $dir) { ... -- you don't want the directory to be used as a binary value
while (my $infile = readdir(DIR)) { ... by for my $infile (readdir(DIR)) { ... -- array, not filehandle

Those seem to be mistakes. See if it works for you afterwards.
Hope this helped.
CombatSquirrel.

Entropy is the tendency of everything going to hell.

Comment on Re: Sanity Check: Debugging Help Needed! Select or Download Code

Replies are listed 'Best First'.
Re: Re: Sanity Check: Debugging Help Needed! by Anonymous Monk on Aug 27, 2003 at 17:50 UTC
Allo, Thank you for your response. I changed the directory-condition check. The `readdir(DIR)` change puzzles me somewhat. The results appear to unchange either way, and I tested this with simpler programs with identical results. When would I expect the `while (readdir(DIR))` to be different from the other?	[reply] [d/l] [select]
Re: Re: Re: Sanity Check: Debugging Help Needed! by CombatSquirrel (Hermit) on Aug 27, 2003 at 19:03 UTC
You are right, it does not have any effect. Shame on me. (_ducks_) ;-) Cheers, CombatSquirrel. Entropy is the tendency of everything going to hell.	[reply]

In Section Seekers of Perl Wisdom