Subversion Repositories DevTools

Rev

Rev 4127 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4127 Rev 4542
Line 40... Line 40...
40 
sub scan_dir
 40 
sub scan_dir
41 
{
 41 
{
42 
    foreach my $dir ( @_ )
 42 
    foreach my $dir ( @_ )
43 
    {
 43 
    {
44 
        my @dirs;
 44 
        my @dirs;
- 
 
 45 
        my $dh;
45 
#        print "Scanning: $dir\n";
 46 
#        print "Scanning: $dir\n";
46 
        #
 47 
        #
47 
        #   Read in the directory entries
 48 
        #   Read in the directory entries
48 
        #
 49 
        #
49 
        next if ( ! -d $dir );
 50 
        next if ( ! -d $dir );
50 
        unless ( opendir(my $dh, $dir) )
 51 
        unless ( opendir($dh, $dir) )
51 
        {
52 
        {
52 
            my  $mode = (stat($dir))[2];
53 
            my  $mode = (stat($dir))[2];
53 
            printf("Cannot readdir $dir: $!, Mode:%04o\n", $mode & 07777);
 54 
            printf("Cannot readdir $dir: $!, Mode:%04o\n", $mode & 07777);
54 
            next;
 55 
            next;
55 
        }
 56 
        }