Re: stopping numification

[prev] [thread] [next] [Date index for 2005/05/24]

On Tue, May 24, 2005 at 05:01:37PM +0100, Matt S Trout said:
> Mmm, possibly either CDBI or SQLite is trying something silly at the
> quoting stage. DBI->trace(4) may be your friend here, as may be various
> evil tricks padding the string or quoting it yourself. YMMV :)

It looks like it may be DBD::SQLite - the trace shows

execute for DBD::SQLite::st 
(DBIx::ContextualFetch::st=HASH(0x87810b0)~0x876667c undef 1 '2.0')

...

Ratten schnatten.

Right, I have this absolutely *horrific* hack. It makes me feel dirty.

__PACKAGE__->add_trigger( select =>  \&frig_version );

sub frig_version { 
	my $self = shift; 
	return unless defined $self->{version}; 
	$self->{version} =~ s!(^\*|\*$)!!g; 
}

sub normalize_column_values {
	my ($self, $vals) = @_;
	return unless defined $vals->{version};
	$vals->{version} = "*".$vals->{version}."*";

}