[ic] Call for testers

David Christensen david at endpoint.com
Mon Jun 22 03:49:44 UTC 2009


Gert,

> diff --git a/lib/Vend/Table/Common.pm b/lib/Vend/Table/Common.pm
> index ee49e6a..b5375e8 100644
> --- a/lib/Vend/Table/Common.pm
> +++ b/lib/Vend/Table/Common.pm

[snip]

> @@ -165,7 +171,8 @@ sub unlock_table {
>  sub stuff {
>      my ($val) = @_;
>      $val =~ s,([\t\%]),$Hex_string[ord($1)],eg;
> -    return $val;
> +    my $retval = encode_utf8($val) if $::Variable->{MV_UTF8};
> +    return $retval;
>  }

This hunk looks bunko to me, as $retval will be uninitialized unless  
MV_UTF8 is set.

Regards,

David
--
David Christensen
End Point Corporation
david at endpoint.com







More information about the interchange-users mailing list