Not reading an array properly

[Michael D. Risser]

I have an array that contains some filenames that I wish to check for, however 
I don't seem to be checking the array, at least not in the manner I expect 
;-) Here's the relevant offending code:

my @lsLib = ("libListTree.a",
                   "libXpm.a",
                   "libfalk.a",
                   "libmysqlclient.a",
                   "libdxclass.so.6.0",
                   "libxg.a");

sub checkLib() {
    # Pass the directory to check in, and an array containing the filenames
    # to check for
    &check($libDir, @lsLib);
}

sub check() {
        my ($dir,@toCheck) = @_;
        my $last = @toCheck;
        my $i;
        my $valid;

        # Go to the directory we need to check
        print "\nEntering $dir\nChecking for $last files\n";
        chdir($dir) or die "Unable to change to $dir: $!\n";
        opendir(DIR, $dir) or die "Unable to open $dir: $!\n";
        
        # Loop throught the directory we were passed
        while(my $file = readdir(DIR)) {
                # First gid rid of those pesky . and .. things
                if($file eq "." || $file eq "..") {
                        next;
                }

                $valid = 0;
                # Now loop through the array of filenames we were passed
                for($i = 0; $i < $last && !$valid; $i++) {
                        # Make sure the file exists
                        if ($file eq $toCheck[$i]) {
                                print "\t\- $file.....OK\n";
                                $valid = 1;
                        }
                }

                ##
                # $i not valid
                #
                if (!$valid) {
                        #if($file ne "." || $file ne "..") {
                                # If its FUBAR add it to the array, and let us know
                                print "\t\- $file.....ERROR\n";
                                push(@missingFiles,"$dir/$file");
                        #}
                }
        }

        # Be nice and close our directory handle
        closedir DIR;
}

Here's the kicker, it works for aother arrays that I pass, but not the one 
shown above. The entire script can be found at 
http://www.visionpro.com/~michael/build-checker.pl

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]