r1612@llin: dpavlin | 2007-11-12 12:17:17 +0100

[webpac2] / lib / WebPAC / Normalize.pm

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 084b3ea..e7f7e9b 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -27,11 +27,11 @@ use strict;
 
 #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 @@ sub _debug {
        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>