s4-dns: dlz_bind9: Fix ipv6 updates
[samba.git] / source3 / script / count_80_col.pl
1 #!/usr/bin/perl -w
2
3 open( INFILE, "$ARGV[0]" ) || die $@;
4
5 $count = 0;
6 while ( <INFILE> ) {
7         next if ($_ =~ /^#define/);
8         $count++ if (length($_) > 80);
9 }
10
11 close( INFILE );
12 print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);
13
14 exit( 0 );
15
16