Permalink
Browse files

Strip criteria from the start of the column.

  • Loading branch information...
1 parent 7509b89 commit b0d162847177b7714fdb0c7e05dc6dbd304bf7c1 @pjcj committed Aug 31, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 makeh
View
2 makeh
@@ -19,7 +19,7 @@ my $Command =
local ($^I, @ARGV) = (".bak", $file);
while (<>)
{
- $t = index $_, "$criterion code" if !defined $t || $t < 0;
+ $t = index($_, "$criterion code") -3 if !defined $t || $t < 0;
substr $_, $t, 7, ""
if /^line err stmt/ .. /^--------/ and $t > -1 and length > $t;
print;

0 comments on commit b0d1628

Please sign in to comment.