From beb8a2fb70f63d5332fa227877165b8ece4db77c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 27 Jul 2001 12:28:42 +0000
Subject: allow cancel on services which do not change anything.

---
 perl-install/services.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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 ]);
 }
 
-- 
cgit v1.2.1