sub iso {
my $url = shift;
- return if ! first_time($url);
-
my $name = (caller(1))[3];
$name =~ s{config::}{} || die "caller isn't package config !";
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";