diff --git a/perl-xCAT-2.0/xCAT/Table.pm b/perl-xCAT-2.0/xCAT/Table.pm index 9989b5d49..f4c0fc872 100644 --- a/perl-xCAT-2.0/xCAT/Table.pm +++ b/perl-xCAT-2.0/xCAT/Table.pm @@ -708,6 +708,9 @@ sub setAttribs } $cmd =~ s/ AND \z//; my $sth = $self->{dbh}->prepare($cmd); + unless ($sth) { + return (undef,"Error attempting requested DB operation"); + } my $err = $sth->execute(@bind); if (not defined($err)) {