|
@@ -2118,8 +2118,10 @@ sub process {
|
|
if (WARN("SPACE_BEFORE_TAB",
|
|
if (WARN("SPACE_BEFORE_TAB",
|
|
"please, no space before tabs\n" . $herevet) &&
|
|
"please, no space before tabs\n" . $herevet) &&
|
|
$fix) {
|
|
$fix) {
|
|
- $fixed[$linenr - 1] =~
|
|
|
|
- s/(^\+.*) +\t/$1\t/;
|
|
|
|
|
|
+ while ($fixed[$linenr - 1] =~
|
|
|
|
+ s/(^\+.*) {8,8}+\t/$1\t\t/) {}
|
|
|
|
+ while ($fixed[$linenr - 1] =~
|
|
|
|
+ s/(^\+.*) +\t/$1\t/) {}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|