summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-07-27 12:28:42 +0000
committerFrancois Pons <fpons@mandriva.com>2001-07-27 12:28:42 +0000
commitbeb8a2fb70f63d5332fa227877165b8ece4db77c (patch)
tree54998410714ede08f9d1bddbeba270fbecae1144 /perl-install
parent18d901eae2e298dc707ceffcaedc07581d32213e (diff)
downloaddrakx-backup-do-not-use-beb8a2fb70f63d5332fa227877165b8ece4db77c.tar
drakx-backup-do-not-use-beb8a2fb70f63d5332fa227877165b8ece4db77c.tar.gz
drakx-backup-do-not-use-beb8a2fb70f63d5332fa227877165b8ece4db77c.tar.bz2
drakx-backup-do-not-use-beb8a2fb70f63d5332fa227877165b8ece4db77c.tar.xz
drakx-backup-do-not-use-beb8a2fb70f63d5332fa227877165b8ece4db77c.zip
allow cancel on services which do not change anything.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index d69812a38..44a915adf 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -163,7 +163,7 @@ sub ask_install {
scalar(values %services));
},
get_info => sub { formatLines(description($_[0], $prefix)) },
- });
+ }) or return ($l, $on_services); #- no change on cancel.
($l, [ grep { $services{$_} } @$l ]);
}