X-Git-Url: http://git.rot13.org/?p=webpac2;a=blobdiff_plain;f=lib%2FWebPAC%2FNormalize.pm;h=f422878f8837f0aed0c3686dab7a9cda76a016e6;hp=97759a96cbd2a2f0f4abce46e83e2317a0dd6c8c;hb=3245b8603f5867658c4f5f6269fb525e5c163406;hpb=8344917de8a57f750a69ae383721da2a2f30fefc

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 97759a9..f422878 100644
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -1,6 +1,6 @@
 package WebPAC::Normalize;
 use Exporter 'import';
-@EXPORT = qw/
+our @EXPORT = qw/
 	_set_rec _set_lookup
 	_set_load_row
 	_get_ds _clean_ds
@@ -24,6 +24,7 @@ use Exporter 'import';
 
 	get set
 	count
+
 /;
 
 use warnings;
@@ -37,6 +38,8 @@ use Carp qw/confess/;
 # debugging warn(s)
 my $debug = 0;
 
+use WebPAC::Normalize::ISBN;
+push @EXPORT, ( 'isbn_10', 'isbn_13' );
 
 =head1 NAME
 
@@ -102,9 +105,6 @@ sub data_structure {
 	die "need row argument" unless ($arg->{row});
 	die "need normalisation argument" unless ($arg->{rules});
 
-	# FIXME load this conditionally
-#	use WebPAC::Normalize::ISBN;
-
 	no strict 'subs';
 	_set_lookup( $arg->{lookup} ) if defined($arg->{lookup});
 	_set_rec( $arg->{row} );