1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-25 23:21:54 +03:00
samba-mirror/source3/script/count_80_col.pl

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

17 lines
253 B
Perl
Raw Normal View History

#!/usr/bin/perl -w
open( INFILE, "$ARGV[0]" ) || die $@;
$count = 0;
while ( <INFILE> ) {
next if ($_ =~ /^#define/);
$count++ if (length($_) > 80);
}
close( INFILE );
print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);
exit( 0 );