diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm index e69dfe4ee..482d6f9ae 100644 --- a/perl-xCAT/xCAT/Table.pm +++ b/perl-xCAT/xCAT/Table.pm @@ -587,6 +587,10 @@ sub new $self->{dbh}->do($str); } } else { #generic DBI + if (!$self->{dbh}) + { + return undef; + } my $tbexistq = $self->{dbh}->table_info('','',$self->{tabname},'TABLE'); my $found = 0; while (my $data = $tbexistq->fetchrow_hashref) {