From decb61aa724cac5623222e7258ba85ca56e3de75 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 6 Sep 2001 11:46:39 +0000 Subject: guess filename if the file is not found (for an rpm file during installation), so try with release incremented in such case (good for Cooker user or local tester using network installation). --- perl-install/pkgs.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'perl-install') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index d8854e60d..e4c05e598 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1257,6 +1257,12 @@ sub install($$$;$$) { my $f = packageFile($p); print LOG "$f $p->[$MEDIUM]{descr}\n"; my $fd = install_any::getFile($f, $p->[$MEDIUM]{descr}); + unless ($fd) { + my ($fp, $rp, $lp) = $f =~ /(.*)(\d+)(mdk\..*)/ or return -1; #- we can't analyse filename correctly. + $rp += 1; #- try with release number increased, hey this is just a try for Cooker. + print LOG "problem to get above file, trying with $fp$rp$lp instead\n"; + $fd = install_any::getFile("$fp$rp$lp", $p->[$MEDIUM]{descr}); + } $fd ? fileno $fd : -1; }; my $callbackClose = sub { packageSetFlagInstalled($packages{$_[0]}, 1) }; -- cgit v1.2.1