Subversion Repositories DevTools

Rev

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

Rev 5282 Rev 5792
Line 3342... Line 3342...
3342 
            $rh_ignored->{$file} = "temporary editor file";
 3342 
            $rh_ignored->{$file} = "temporary editor file";
3343 
            next;
 3343 
            next;
3344 
        }
 3344 
        }
3345 
 
 3345 
 
3346 
        my $size_in_bytes = (stat $file)[7];
 3346 
        my $size_in_bytes = (stat $file)[7];
- 
 
 3347 
 
- 
 
 3348 
        #   Vix extension
- 
 
 3349 
        #   Perl under Windows can't handle pats longer that 255, so don't try
- 
 
 3350 
        #   stat will return undef
- 
 
 3351 
        #
- 
 
 3352 
        if (! defined $size_in_bytes)
- 
 
 3353 
        {
- 
 
 3354 
            $rh_ignored->{$file} = "Windows path too long";
- 
 
 3355 
            next;
- 
 
 3356 
        }
- 
 
 3357 
 
3347 
        my $language      = "";
 3358 
        my $language      = "";
3348 
        if ($All_One_Language) {
 3359 
        if ($All_One_Language) {
3349 
            # user over-rode auto-language detection by using
 3360 
            # user over-rode auto-language detection by using
3350 
            # --force-lang with just a language name (no extension)
 3361 
            # --force-lang with just a language name (no extension)
3351 
            $language      = $All_One_Language;
 3362 
            $language      = $All_One_Language;
Line 3353... Line 3364...
3353 
            $language      = classify_file($file      ,
 3364 
            $language      = classify_file($file      ,
3354 
                                           $rh_Err    ,
 3365 
                                           $rh_Err    ,
3355 
                                           $raa_errors,
 3366 
                                           $raa_errors,
3356 
                                           $rh_ignored);
 3367 
                                           $rh_ignored);
3357 
        }
 3368 
        }
- 
 
 3369 
 
3358 
die  "make_file_list($file) undef size" unless defined $size_in_bytes;
 3370 
die  "make_file_list($file) undef size" unless defined $size_in_bytes;
3359 
die  "make_file_list($file) undef lang" unless defined $language;
 3371 
die  "make_file_list($file) undef lang" unless defined $language;
3360 
        printf $fh "%d,%s,%s\n", $size_in_bytes, $language, $file;
 3372 
        printf $fh "%d,%s,%s\n", $size_in_bytes, $language, $file;
3361 
        ++$nFiles_Categorized;
 3373 
        ++$nFiles_Categorized;
3362 
        #printf "classified %d files\n", $nFiles_Categorized
3374 
        #printf "classified %d files\n", $nFiles_Categorized