From 0d716b5691227d5bd2a5de0e9eb7a578446d4ddf Mon Sep 17 00:00:00 2001
From: xq2005 <xq2005@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 17 Apr 2013 06:38:42 +0000
Subject: [PATCH] use defined suborutine on hash object import warning message

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@15992 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/Template.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xCAT-server/lib/perl/xCAT/Template.pm b/xCAT-server/lib/perl/xCAT/Template.pm
index 350fe2e6c..ecfe1aec1 100644
--- a/xCAT-server/lib/perl/xCAT/Template.pm
+++ b/xCAT-server/lib/perl/xCAT/Template.pm
@@ -796,7 +796,7 @@ sub tabdb
    my $blankok = shift;
    
 
-   if( defined( %::GLOBAL_TAB_HASH) && defined( $::GLOBAL_TAB_HASH{$table} ) ) {
+   if( %::GLOBAL_TAB_HASH && defined( $::GLOBAL_TAB_HASH{$table} ) ) {
         if( !defined( $::GLOBAL_TAB_HASH{$table}{$key}) ) {
             return "''";   
         }