r25068: Older samba3 DCs will return DCERPC_FAULT_OP_RNG_ERROR for every opcode on the

[Samba.git] / source / script / count_80_col.pl

#!/usr/bin/perl -w

open( INFILE, "$ARGV[0]" ) || die $@;

$count = 0;
while ( <INFILE> ) { 
        $count++ if (length($_) > 80);
}

close( INFILE );
print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);

exit( 0 );