exit 1;
}
-my $re = Regexp::Assemble->new(file => "$regexfile");
+my $re = Regexp::Assemble->new(file => "$regexfile", track => 1);
my $target = shift @ARGV;
else {
print "NG: ";
}
- print $line, "\n";
+ print $line;
+ if ($re->source) {
+ print " /", $re->source, "/";
+ }
+ print "\n";
}