--- trunk/t/3-normalize.t	2007/01/30 18:21:17	791
+++ trunk/t/3-normalize.t	2007/04/01 21:47:40	811
@@ -207,7 +207,7 @@
 
 	ok(_set_load_row(sub {
 		my ($database,$input,$mfn) = @_;
-		diag "load_row( $database, $input, $mfn )";
+		diag "load_row( $database, $input, $mfn )" if ($debug);
 		cmp_ok( $#_, '==', 2, 'have 3 arguments');
 		ok($database, '_load_row database');
 		ok($input, '_load_row input');
@@ -236,13 +236,13 @@
 		);
 
 		ok(my $l = WebPAC::Normalize::_get_lookup(), '_get_lookup');
-		diag "_get_lookup = ", dump($l);
+		diag "_get_lookup = ", dump($l) if ($debug);
 
 		my @lookup;
 
 		ok(@lookup = lookup(
 				sub {
-					diag "in show";
+					diag "in show" if ($debug);
 					rec('900','x');
 				},
 				'db','input','key',
@@ -261,7 +261,7 @@
 	}
 
 	ok(my $l = WebPAC::Normalize::_get_lookup(), '_get_lookup');
-	diag "_get_lookup = ", dump($l);
+	diag "_get_lookup = ", dump($l) if ($debug);
 
 	is_deeply( $l, {
 		db => {
@@ -281,7 +281,7 @@
 
 #######
 
-	diag "lookup_hash1 = ", dump($lookup_hash1);
+	diag "lookup_hash1 = ", dump($lookup_hash1) if ($debug);
 	ok(_set_lookup( $lookup_hash1 ), '_set_lookup $lookup_hash1');
 
 	throws_ok { _set_load_row() } qr/CODE/, 'empty _set_load_row()';