fix 0 again
authorsimigern <simigern>
Sun, 21 May 2006 13:09:23 +0000 (13:09 +0000)
committersimigern <simigern>
Sun, 21 May 2006 13:09:23 +0000 (13:09 +0000)
snom.pl

diff --git a/snom.pl b/snom.pl
index bbb359d..d74e11b 100755 (executable)
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
-#$Id: snom.pl,v 1.7 2006-05-21 13:08:52 simigern Exp $
+#$Id: snom.pl,v 1.8 2006-05-21 13:09:23 simigern Exp $
 
 PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
 
@@ -273,7 +273,7 @@ sub KBDInput
 
        my $keyval = $event->keyval;
 
-       for (my $i=1; $i<10; $i++) {
+       for (my $i=0; $i<10; $i++) {
                if ($keyval == $Gtk2::Gdk::Keysyms{$i} || $keyval == $Gtk2::Gdk::Keysyms{"KP_${i}"}) {
                        snom_key($i);
                        return TRUE;
Impressum, Datenschutz