mirror of
https://github.com/samba-team/samba.git
synced 2025-01-14 19:24:43 +03:00
17 lines
253 B
Perl
Executable File
17 lines
253 B
Perl
Executable File
#!/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 );
|
|
|
|
|