moved first_tile check to mount image if needed
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 19 Aug 2009 23:12:02 +0000 (23:12 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 19 Aug 2009 23:12:02 +0000 (23:12 +0000)
lib/PXElator/upstream.pm

index a8b84f1..2e4ef62 100644 (file)
@@ -31,8 +31,6 @@ sub first_time {
 sub iso {
        my $url = shift;
 
-       return if ! first_time($url);
-
        my $name = (caller(1))[3];
        $name =~ s{config::}{} || die "caller isn't package config !";
 
@@ -46,7 +44,7 @@ sub iso {
 
        my $iso = "$dir/$file";
 
-       mirror_file( $url, $iso );
+       mirror_file( $url, $iso ) if first_time $url;
 
        $file =~ s{\.iso$}{}i;
        my $mnt = "$server::base_dir/tftp/$name";