use mkpath instead of make_path to support older Fole::Path on production server

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

diff --git a/lib/WebPAC/Output/SWISH.pm b/lib/WebPAC/Output/SWISH.pm
index ab8fc22..5151061 100644 (file)
--- a/lib/WebPAC/Output/SWISH.pm
+++ b/lib/WebPAC/Output/SWISH.pm
@@ -13,7 +13,7 @@ __PACKAGE__->mk_accessors(qw(
        index_path
 ));
 
-use File::Path qw/make_path/;
+use File::Path qw/mkpath/;
 use Data::Dump qw/dump/;
 use YAML;
 use JSON;
@@ -63,7 +63,7 @@ sub init {
 
        my $database = $self->database || $log->logdie("need database");
 
-       make_path $dir if ! -e $dir;
+       mkpath $dir if ! -e $dir;
 
        my $path = "$dir/$database.conf";
 
@@ -181,7 +181,7 @@ sub add {
        print $fh "Path-Name: $uri\nContent-Length: $len\nDocument-Type: XML\n\n$xml" or
                die "can't add $uri: $@\n$xml";
 
-       warn "$xml\n";
+#      warn "$xml\n";
 
        return 1;
 }