From 5e67f822bc7021baa1e7e39ccb634d31e31fc9a3 Mon Sep 17 00:00:00 2001
From: michael <michael>
Date: Wed, 24 May 2006 14:31:16 +0000
Subject: [PATCH] less strict handling of modifier states

---
 snom.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/snom.pl b/snom.pl
index 97b8e99..1682938 100755
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
-#$Id: snom.pl,v 1.43 2006-05-23 19:14:09 michael Exp $
+#$Id: snom.pl,v 1.44 2006-05-24 14:31:16 michael Exp $
 
 PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
 
@@ -288,7 +288,7 @@ sub KBDInput
 		}
 	}
 
-	if (!$event->state || $event->state eq 'shift-mask') {
+	if (!$event->state || !($event->state & "control-mask" || $event->state & "mod1-mask")) {
 		if ($keyval == $Gtk2::Gdk::Keysyms{asterisk}) {snom_key('*'); return TRUE;}
 		if ($keyval == $Gtk2::Gdk::Keysyms{KP_Multiply}) {snom_key('*'); return TRUE;}
 		if ($keyval == $Gtk2::Gdk::Keysyms{numbersign}) {snom_key('#'); return TRUE;}
@@ -341,7 +341,7 @@ sub KBDInput
 			}
 		}
 	} else {
-		if ($event->state eq 'mod1-mask') {
+		if ($event->state & "mod1-mask") {
 			for (my $i=1; $i<13; $i++) {
 				if ($keyval == $Gtk2::Gdk::Keysyms{"F${i}"}) {
 					snom_key("P${i}");
-- 
2.39.2