Subversion Repositories DevTools

Rev

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

Rev 4247 Rev 5282
Line 161... Line 161...
161 
    Error ("Root directory does not exist") unless ( -e $opt_root );
 161 
    Error ("Root directory does not exist") unless ( -e $opt_root );
162 
    Error ("Root directory is not a directory") unless ( -d $opt_root );
 162 
    Error ("Root directory is not a directory") unless ( -d $opt_root );
163 
 
 163 
 
164 
    Verbose ("Determine LOC");
 164 
    Verbose ("Determine LOC");
165 
    EnvImport( "GBE_TOOLS" );
 165 
    EnvImport( "GBE_TOOLS" );
166 
    my $cloc = "$GBE_TOOLS/cloc-1.00.pl";
 166 
    my $cloc = "$GBE_TOOLS/cloc-1.65.pl";
167 
    Error ("Cannot find cloc utility","Need: $cloc") unless ( -f $cloc );
 167 
    Error ("Cannot find cloc utility","Need: $cloc") unless ( -f $cloc );
168 
 
 168 
 
169 
    #
 169 
    #
170 
    #   Invoke a standard version of cloc
 170 
    #   Invoke a standard version of cloc
171 
    #   Parse the text output.
 171 
    #   Parse the text output.