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

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

Gisle Aas <gi...@ca...> writes:

> This patch make Tcl::Ev more correct.

I've applied this patch myself now; Tcl.pm -r1.14

--Gisle

> ==== //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.