|
@@ -42,9 +42,8 @@ for $fn (@ARGV) {
|
|
$lastnil = 0;
|
|
$lastnil = 0;
|
|
}
|
|
}
|
|
## Terminals are still 80 columns wide in my world. I refuse to
|
|
## Terminals are still 80 columns wide in my world. I refuse to
|
|
- ## accept double-line lines. Except, of course, svn Id tags
|
|
+ ## accept double-line lines.
|
|
- ## can make us go long.
|
|
+ if (/^.{80}/) {
|
|
- if (/^.{80}/ && !/\$Id: /) {
|
|
|
|
print " Wide:$fn:$.\n";
|
|
print " Wide:$fn:$.\n";
|
|
}
|
|
}
|
|
### Juju to skip over comments and strings, since the tests
|
|
### Juju to skip over comments and strings, since the tests
|