--- trunk/lib/WebPAC/Normalize.pm	2007/11/12 11:10:48	1036
+++ trunk/lib/WebPAC/Normalize.pm	2007/11/12 11:17:19	1037
@@ -27,11 +27,11 @@
 
 #use base qw/WebPAC::Common/;
 use Data::Dump qw/dump/;
-use Storable qw/dclone/;
 use Carp qw/confess/;
 
 # debugging warn(s)
 my $debug = 0;
+_debug( $debug );
 
 # FIXME
 use WebPAC::Normalize::ISBN;
@@ -263,6 +263,7 @@
 	warn "debug level $l",$/ if ($l > 0);
 	$debug = $l;
 	$WebPAC::Normalize::MARC::debug = $debug;
+warn "#### MARC::debug = ",dump($WebPAC::Normalize::MARC::debug);
 }
 
 =head1 Functions to create C<data_structure>