From 5ec0bdc7f65c446a125e05db6f7c76d8c2aa8eaf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gwenol=C3=A9=20Beauchesne?= <gbeauchesne@mandriva.org>
Date: Fri, 7 Nov 2003 16:34:06 +0000
Subject: reintegrate togglePackageSelection that fpons nuked away during
 (mis)merge

---
 perl-install/pkgs.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 2f7f62ce9..077c1f5a4 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -293,6 +293,10 @@ sub unselectPackage($$;$) {
     }
     1;
 }
+sub togglePackageSelection($$;$) {
+    my ($packages, $pkg, $o_otherOnly) = @_;
+    $pkg->flag_selected ? unselectPackage($packages, $pkg, $o_otherOnly) : selectPackage($packages, $pkg, 0, $o_otherOnly);
+}
 sub setPackageSelection($$$) {
     my ($packages, $pkg, $value) = @_;
     $value ? selectPackage($packages, $pkg) : unselectPackage($packages, $pkg);
-- 
cgit v1.2.1