From 8e547d2d04e3575bf83f7f3bb417c0995cf659ad Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 18 Aug 2004 09:57:05 +0000
Subject: fix blino sucks

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index ab7b59bd4..9c6df5f0f 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -979,7 +979,7 @@ sub new {
 		    my $d = ${{ $Gtk2::Gdk::Keysyms{F2} => 'screenshot', $Gtk2::Gdk::Keysyms{Delete} => 'restart' }}{$event->keyval};
 		    if ($d eq 'screenshot') {
 			common::take_screenshot();
-		    } elsif ($d eq 'restart' && $event->state >= ['control-mask', 'mod1-mask']) {
+		    } elsif ($d eq 'restart' && member('control-mask', @{$event->state}) && member('mod1-mask', @{$event->state})) {
 			log::l("restarting install");
                         $o->exit(0x35);
  		    }
-- 
cgit v1.2.1