--- lib/PXElator/upstream.pm	2009/08/20 17:36:17	276
+++ lib/PXElator/upstream.pm	2010/07/21 16:17:46	508
@@ -11,6 +11,9 @@
 
 sub mirror_file {
 	my ( $url, $file ) = @_;
+
+	return if ! once::first_time $url;
+
 	warn "mirror_file $url -> $file\n";
 	mirror( $url, $file )
 		== RC_NOT_MODIFIED
@@ -30,12 +33,12 @@
 	my $dir = "$server::base_dir/iso";
 	mkdir $dir unless -e $dir;
 
-	my $file = $1 if $url =~ m{/([^/]+\.iso$)}i;
+	my $file = $1 if $url =~ m{/([^/]+\.iso)}i;
 	die "can't find iso file in $url" unless $file;
 
 	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";