From fed8bbf89f94475174f9794ab7c9cc43aa2404ff Mon Sep 17 00:00:00 2001 From: jbjohnso Date: Wed, 23 Sep 2009 18:42:25 +0000 Subject: [PATCH] -Fix syntax errors git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4216 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/DBobjUtils.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl-xCAT/xCAT/DBobjUtils.pm b/perl-xCAT/xCAT/DBobjUtils.pm index 5363ec24b..77fc54277 100644 --- a/perl-xCAT/xCAT/DBobjUtils.pm +++ b/perl-xCAT/xCAT/DBobjUtils.pm @@ -1047,8 +1047,9 @@ sub setobjdefs if ( !($objhash{$objname}{$check_attr} =~ /\b$check_value\b/) && !($DBattrvals{$objname}{$check_attr} =~ /\b$check_value\b/) ) { + my $rsp; push @{$rsp->{data}}, "Cannot set the \'$attr_name\' attribute unless \'$check_attr=$check_value\'.\n"; - xCAT::MsgUtils->message("E", $rsp, $::callback) + xCAT::MsgUtils->message("E", $rsp, $::callback); next; }