check once in mirror_file so we can call it directly

diff --git a/lib/PXElator/upstream.pm b/lib/PXElator/upstream.pm
index 48b0e4c..8c25bb2 100644 (file)
--- a/lib/PXElator/upstream.pm
+++ b/lib/PXElator/upstream.pm
@@ -11,6 +11,9 @@ use once;
 
 sub mirror_file {
        my ( $url, $file ) = @_;
+
+       return if ! once::first_time $url;
+
        warn "mirror_file $url -> $file\n";
        mirror( $url, $file )
                == RC_NOT_MODIFIED
@@ -35,7 +38,7 @@ sub iso {
 
        my $iso = "$dir/$file";
 
-       mirror_file( $url, $iso ) if once::first_time $url;
+       mirror_file( $url, $iso );
 
        $file =~ s{\.iso$}{}i;
        my $mnt = "$server::base_dir/tftp/$name";