From f38e2e552feef39b99298e1976920c5515091d15 Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sun, 27 Sep 2009 03:02:46 +0000
Subject: [PATCH] fix for bug 2867833: wait database initialization in xcatd

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4242 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Table.pm | 4 ++++
 1 file changed, 4 insertions(+)

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) {