[tcltk-perl] Tcl::Ev error check [PATCH]

[Gisle A. <gi...@Ac...>]

This patch make Tcl::Ev more correct.

==== //depot/users/gisle/hacks/Tcl/Tcl.pm#2 - /home/gisle/hacks/Tcl/Tcl.pm ====
Index: users/gisle/hacks/Tcl/Tcl.pm
--- users/gisle/hacks/Tcl/Tcl.pm.~1~	Wed Apr 14 13:12:40 2004
+++ users/gisle/hacks/Tcl/Tcl.pm	Wed Apr 14 13:12:40 2004
@@ -434,7 +434,7 @@
 }
 sub Ev {
     my $s = shift;
-    if (length($s)>1) {
+    if (!defined($s) || length($s) != 1) {
 	warn "Event variable must have length 1";
 	return;
     }
End of Patch.