--- trunk/t/2-input.t	2007/02/04 15:09:01	799
+++ trunk/t/2-input.t	2007/02/04 23:10:18	800
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 108;
+use Test::More tests => 111;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -177,7 +177,7 @@
 my $f = $WebPAC::Input::Test::filter_coderef;
 ok(ref($f) eq 'CODE', 'filter_coderef');
 
-diag "regexps = ", dump($input->modify_file_regexps( $modify_file ));
+diag "regexps = ", dump($input->modify_file_regexps( $modify_file )) if ($debug);
 
 sub test_filter {
 	my ($field, $from, $to) = @_;
@@ -186,6 +186,6 @@
 
 test_filter(200,
 	'^a foo ; bar = baz : zzz',
-	'^a foo^kbar^dbaz^ezzz',
+	'^a foo^kbar^dbaz : zzz',
 );