diff --git a/lib/SQL/Statement/Function.pm b/lib/SQL/Statement/Function.pm index 1467dac..2c73a05 100644 --- a/lib/SQL/Statement/Function.pm +++ b/lib/SQL/Statement/Function.pm @@ -223,7 +223,7 @@ sub value($) map { _INSTANCE( $_, 'SQL::Statement::Term' ) ? $_->value($eval) : $_ } @{ $self->{PARAMS} }; foreach my $val (@vals) { - return $owner->do_err(qq~Bad numeric expression '$val'!~) + return $self->{OWNER}->do_err(qq~Bad numeric expression '$val'!~) unless ( defined( _NUMBER($val) ) ); } $expr =~ s/\?(\d+)\?/$vals[$1]/g;