index 182e920bfc6236249b7b3ea95be4be1c8a04ea40..496ce8d4edb0d015cff3f794aef0bd5473bdfec4 100644 (file)
my $error= 0;
my $clause_str= "";
- if( not exists @{$msg_hash->{'where'}}[0]->{'clause'} ) { $error++; };
+ if( (not exists $msg_hash->{'where'}) || (not exists @{$msg_hash->{'where'}}[0]->{'clause'}) ) { $error++; };
if( $error == 0 ) {
my @clause_l;
my @where = @{@{$msg_hash->{'where'}}[0]->{'clause'}};