From fa144388d6a95d0c4b0878221d7b38a16394cc6b Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 21 Jul 2010 16:17:46 +0000
Subject: [PATCH] check once in mirror_file so we can call it directly

---
 lib/PXElator/upstream.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/PXElator/upstream.pm b/lib/PXElator/upstream.pm
index 48b0e4c..8c25bb2 100644
--- 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";
-- 
2.20.1