View | Details | Raw Unified | Return to bug 6558
Collapse All | Expand All

(-)OneLineBodyRuleType.pm.orig (-1 / +2 lines)
Lines 97-103 Link Here
97
      $sub = '
97
      $sub = '
98
      pos $_[1] = 0;
98
      pos $_[1] = 0;
99
      '.$self->hash_line_for_rule($pms, $rulename).'
99
      '.$self->hash_line_for_rule($pms, $rulename).'
100
      while ($_[1] =~ '.$pat.'g) {
100
      my $line = $_[1];
101
      while ($line =~ '.$pat.'g) {
101
        my $self = $_[0];
102
        my $self = $_[0];
102
        $self->got_hit(q{'.$rulename.'}, "BODY: ", ruletype => "one_line_body");
103
        $self->got_hit(q{'.$rulename.'}, "BODY: ", ruletype => "one_line_body");
103
        '. $self->hit_rule_plugin_code($pms, $rulename, "one_line_body",
104
        '. $self->hit_rule_plugin_code($pms, $rulename, "one_line_body",

Return to bug 6558