diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-13 14:31:52 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-13 14:31:52 +0000 |
| commit | ef5d4874ed831dfcdc342d4ca3c52e742686d974 (patch) | |
| tree | 95c8985275ab5eceddb0b1620d14364d4e5fbbff /grpmi | |
| parent | c5fb5c87196b48013fc582c0ca725dc538c65b1c (diff) | |
| download | rpmdrake-ef5d4874ed831dfcdc342d4ca3c52e742686d974.tar rpmdrake-ef5d4874ed831dfcdc342d4ca3c52e742686d974.tar.gz rpmdrake-ef5d4874ed831dfcdc342d4ca3c52e742686d974.tar.bz2 rpmdrake-ef5d4874ed831dfcdc342d4ca3c52e742686d974.tar.xz rpmdrake-ef5d4874ed831dfcdc342d4ca3c52e742686d974.zip | |
if there was an error during installation, propose to
remove the cached/downloaded packages or not (partially follows
a nice suggestion by Jeff Martin <jeffm at tampabay.rr.com>)
Diffstat (limited to 'grpmi')
| -rwxr-xr-x | grpmi/grpmi.pl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/grpmi/grpmi.pl b/grpmi/grpmi.pl index d763e61e..f5be91cb 100755 --- a/grpmi/grpmi.pl +++ b/grpmi/grpmi.pl @@ -203,12 +203,16 @@ Install aborted.", # -=-=-=---=-=-=---=-=-=-- cleanup -=-=-=---=-=-=-- $exitstatus = 0; -$mainw->{rwindow}->hide; cleanup: if (!member('noclearcache', @grpmi_config)) { - foreach (@ARGV) { - s/^-skipped&([^&]+)&$/$1/; - /^\Q$cache_location/ and unlink; + my @toclean = map { s/^-skipped&([^&]+)&$/$1/; if_(/^\Q$cache_location/, $_) } @ARGV; + if ($forced_exitstatus || $exitstatus) { + interactive_msg(_("Cleanup"), +_("Cleanup question: there was an error during installation, do you want to +remove the %d downloaded package(s)? +(they are located in %s)", scalar(@toclean), $cache_location), 1) or goto exiting; } + unlink @toclean; } +exiting: mexit($forced_exitstatus || $exitstatus); |