Subversion Repositories DevTools

Rev

Rev 3423 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3423 Rev 4127
Line 45... Line 45...
45 
#        print "Scanning: $dir\n";
 45 
#        print "Scanning: $dir\n";
46 
        #
 46 
        #
47 
        #   Read in the directory entries
 47 
        #   Read in the directory entries
48 
        #
 48 
        #
49 
        next if ( ! -d $dir );
 49 
        next if ( ! -d $dir );
- 
 
 50 
        unless ( opendir(my $dh, $dir) )
- 
 
 51 
        {
- 
 
 52 
            my  $mode = (stat($dir))[2];
50 
        opendir(my $dh, $dir) || print("Cannot readdir $dir: $!\n");
 53 
            printf("Cannot readdir $dir: $!, Mode:%04o\n", $mode & 07777);
- 
 
 54 
            next;
- 
 
 55 
        }
51 
        my @entries = readdir($dh);
 56 
        my @entries = readdir($dh);
52 
        closedir $dh;
 57 
        closedir $dh;
53 
 
 58 
 
54 
        #
 59 
        #
55 
        #   Process each entry
 60 
        #   Process each entry