small fixes

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@14 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 1dacb2f..174ce3b 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -3,6 +3,7 @@ package WebPAC::Normalize;
 use warnings;
 use strict;
 use Data::Dumper;
+use Storable;
 
 =head1 NAME
 

diff --git a/lib/WebPAC/Normalize/XML.pm b/lib/WebPAC/Normalize/XML.pm
index 929b775..a0727d0 100644 (file)
--- a/lib/WebPAC/Normalize/XML.pm
+++ b/lib/WebPAC/Normalize/XML.pm
@@ -4,7 +4,6 @@ use warnings;
 use strict;
 
 use base qw/WebPAC::Common WebPAC::Normalize/;
-use Storable;
 use XML::Simple;
 use Data::Dumper;
 use Text::Iconv;
@@ -79,7 +78,7 @@ sub open {
 
 =head2 _x
 
-Convert string from UTF-8 to code page defined in C<import_xml>.
+Convert string from XML UTF-8 encoding to code page defined in C<xml_file>.
 
  my $text = $n->_x('utf8 text');
 

diff --git a/t/3-normalize-xml.t b/t/3-normalize-xml.t
index 8247c2d..3b7ea4b 100755 (executable)
--- a/t/3-normalize-xml.t
+++ b/t/3-normalize-xml.t
@@ -16,7 +16,6 @@ diag "abs_path: $abs_path";
 
 ok(my $n = new WebPAC::Normalize::XML( debug => 1 ), "new");
 
-
 throws_ok { $n->open() } qr/tag/, "open without tag";
 throws_ok { $n->open( tag => 'isis' ) } qr/xml_file/, "open without xml_file";
 throws_ok { $n->open( tag => 'isis', xml_file => 'foo' ) } qr/file.*doesn't exist/, "open with invalid xml_file";