diff options
| author | Paul Buetow <paul@buetow.org> | 2013-04-06 13:14:47 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2013-04-06 13:14:47 +0200 |
| commit | ee315a27b72dc967a8a90f132725b7c8e4fd9fba (patch) | |
| tree | 349db556063b17a3c84dc9348495bd11d73b0417 /scripts/stats.pl | |
| parent | 630af0ed6c0af69c7df2e45aef7a87722a3c00c0 (diff) | |
tagging ychat-0.7.5ychat-0.7.5
Diffstat (limited to 'scripts/stats.pl')
| -rwxr-xr-x | scripts/stats.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/stats.pl b/scripts/stats.pl index 0eea04d..e5cc2b3 100755 --- a/scripts/stats.pl +++ b/scripts/stats.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -# The yChat Project (2003 - 2005) +# The yChat Project (2003 - 2004) # # This script generates source code and project statistics @@ -71,12 +71,12 @@ sub filestats { $stats{"Number of gfx files"}++; } - elsif ( $shift =~ /(\.pl|\.pm|\.sh|configure.*|Makefile.*)$/ ) + elsif ( $shift =~ /(\.pl|\.sh|configure.*|Makefile.*)$/ ) { $stats{"Number of script files"}++; $stats{"Lines of scripts"} += countlines($shift); } - elsif ( $shift =~ /(\.txt|[A-Z]+)$/ ) + elsif ( $shift =~ /(\.txt|README|INSTALL|COPYING|NEWS|SNAPSHOT|ChangeLog)$/ ) { $stats{"Number of text files"}++; $stats{"Lines of text"} += countlines($shift); |
