-Exit more cleanly if DB encounters an issue

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1482 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2008-05-22 16:58:35 +00:00 · 2008-05-22 16:58:35 +00:00 · 7f9604ba91
commit 7f9604ba91
parent 0863a2b674
1 changed files with 3 additions and 0 deletions
--- 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))
        {