Subversion Repositories DevTools

Rev

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

Rev 255 Rev 285
Line 186... Line 186...
186 
 
 186 
 
187 
    if ( -d $path )
 187 
    if ( -d $path )
188 
    {
 188 
    {
189 
        opendir (USEFUL, $path) or ::Error ("Cannot open $path");
 189 
        opendir (USEFUL, $path) or ::Error ("Cannot open $path");
190 
        my @dirlist = readdir USEFUL;
 190 
        my @dirlist = readdir USEFUL;
191 
        close USEFUL;
 191 
        closedir USEFUL;
192 
 
 192 
 
193 
        foreach ( @dirlist )
 193 
        foreach ( @dirlist )
194 
        {
 194 
        {
195 
            return 1 if ( -f "$path/$_" );
 195 
            return 1 if ( -f "$path/$_" );
196 
        }
 196 
        }