minor fix for a compiler warning

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7241 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2010-08-25 18:47:47 +00:00
parent 33551a0e53
commit 44271467a0

View File

@ -5,8 +5,8 @@ BEGIN
{
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
}
use lib "$::XCATROOT/lib/perl";
use lib "$::XCATROOT/lib/perl";
use xCAT::Table;
use xCAT::MsgUtils;
use xCAT::Utils;
@ -72,7 +72,7 @@ sub unregMonitoringNotif {
my $tab = xCAT::Table->new('notification');
my $regged=0;
if ($tab) {
(my $ref) = $tab->getAttribs({filename => qw(montbhandler.pm)}, tables);
(my $ref) = $tab->getAttribs({filename => qw(montbhandler.pm)}, "tables");
if ($ref and $ref->{tables}) {
$regged=1;
}