Updated paths in classaudit script.

0.6.0-stable
Jeff Ames 2008-02-25 11:53:21 +00:00
parent 66cc8f99f6
commit cda8b013ec
1 changed files with 3 additions and 3 deletions

View File

@ -37,14 +37,14 @@ use constant CLEAR => "\033[0m";
our %totals; our %totals;
find(\&test, "../OpenSim"); find(\&test, "../../OpenSim");
print Dumper(\%totals); print Dumper(\%totals);
sub test { sub test {
my $file = $File::Find::name; my $file = $File::Find::name;
my $dir = $File::Find::dir; my $dir = $File::Find::dir;
$file =~ s{^../}{}; #strip off prefix $file =~ s{^../../}{}; #strip off prefix
$dir =~ s{^../}{}; #strip off prefix $dir =~ s{^../../}{}; #strip off prefix
return if ($file !~ /\.cs$/); return if ($file !~ /\.cs$/);
return if ($file =~ /AssemblyInfo\.cs$/); return if ($file =~ /AssemblyInfo\.cs$/);