find-longlines

* output full file path
  * some preliminary file edits to restore 80-col max.
This commit is contained in:
Mark Olesen
2008-06-23 17:32:09 +02:00
parent 1dbb511fe5
commit 6f62adddd1
6 changed files with 17 additions and 8 deletions

View File

@ -31,7 +31,7 @@ sub wanted {
if ( $maxlen < length ) {
$count++;
substr( $_, $maxlen, 0 ) = "||->>"; # show truncation point
print "$ARGV $. $_\n";
print "$File::Find::name $. $_\n";
}
}
close ARGV;