From 7c0fdc96417a55ea41ec3e9299b9c31d98161594 Mon Sep 17 00:00:00 2001 From: lissav Date: Thu, 6 Jan 2011 19:12:45 +0000 Subject: [PATCH] addNodeAttribs and addAttribs are not used, putting die at start to verify and setup to remove in the future git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8576 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/Table.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm index a51b2c2e6..28ac86e2e 100644 --- a/perl-xCAT/xCAT/Table.pm +++ b/perl-xCAT/xCAT/Table.pm @@ -1234,7 +1234,7 @@ sub setNodeAttribs #-------------------------------------------------------------------------- -=head3 addNodeAttribs +=head3 addNodeAttribs (not supported) Description: Add new attributes input to the routine to the nodes @@ -1257,12 +1257,14 @@ sub setNodeAttribs sub addNodeAttribs { my $self = shift; + xCAT::MsgUtils->message("S","addNodeAttribs is not supported"); + die "addNodeAttribs is not supported"; return $self->addAttribs('node', @_); } #-------------------------------------------------------------------------- -=head3 addAttribs +=head3 addAttribs (not supported) Description: add new attributes @@ -1288,6 +1290,8 @@ sub addNodeAttribs sub addAttribs { my $self = shift; + xCAT::MsgUtils->message("S","addAttribs is not supported"); + die "addAttribs is not supported"; if ($dbworkerpid) { return dbc_call($self,'addAttribs',@_); }