--- OneLineBodyRuleType.pm.orig	2010-03-16 10:49:21.000000000 -0400
+++ OneLineBodyRuleType.pm	2011-03-22 09:26:06.628565077 -0400
@@ -97,7 +97,8 @@
       $sub = '
       pos $_[1] = 0;
       '.$self->hash_line_for_rule($pms, $rulename).'
-      while ($_[1] =~ '.$pat.'g) {
+      my $line = $_[1];
+      while ($line =~ '.$pat.'g) {
         my $self = $_[0];
         $self->got_hit(q{'.$rulename.'}, "BODY: ", ruletype => "one_line_body");
         '. $self->hit_rule_plugin_code($pms, $rulename, "one_line_body",