don't export anything from LWP::Simple by default

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

diff --git a/run.pl b/run.pl
index f87ebdb..e933728 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -22,7 +22,7 @@ use File::Slurp;
 use Data::Dump qw/dump/;
 use Storable qw/dclone/;
 use Pod::Usage qw/pod2usage/;
-use LWP::Simple;
+use LWP::Simple qw//;
 
 use POSIX ":sys_wait_h"; # imports WNOHANG
 
@@ -417,8 +417,8 @@ foreach my $database ( sort keys %{ $config->databases } ) {
                        $base =~ s{/[^/]+$}{};
                        mkpath $base unless -e $base;
 
-                       my $rc = mirror( "$mirror/$path", $path );
-                       if (is_error( $rc )) {
+                       my $rc = LWP::Simple::mirror( "$mirror/$path", $path );
+                       if (LWP::Simple::is_error( $rc )) {
                                die "can't mirror $mirror/$path -> $path [$rc]";
                        } else {
                                $log->info( "mirror ", $path, " [$rc] ", -s $path, " bytes" );