- for $i (0..$#lines) {
-
- if ($lines[$i] =~ /include.*linux(\/can)?\/version\.h/) {
- undef($lines[$i]);
- $count--;
- }
-
- if ($lines[$i] =~ /RCSID/) {
- undef($lines[$i]);
- $count--;
- while ($lines[++$i] eq "\n") {
- undef($lines[$i]);
- $count--;
- }
- }
-
- if ($lines[$i] =~ /\$Id.*\$/) {
- undef($lines[$i]);
- $count--;
- while ($lines[++$i] eq " *\n") {
- undef($lines[$i]);
- $count--;
- }
- }
- }
-