[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