From 5500f738245693578f45efd16ab1bc7289706716 Mon Sep 17 00:00:00 2001
From: lissav <lissav@us.ibm.com>
Date: Tue, 18 Feb 2014 11:08:22 -0500
Subject: [PATCH]  improvements

---
 perl-xCAT/xCAT/Zone.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/Zone.pm b/perl-xCAT/xCAT/Zone.pm
index b4cea8bea..bf62b7635 100644
--- a/perl-xCAT/xCAT/Zone.pm
+++ b/perl-xCAT/xCAT/Zone.pm
@@ -279,7 +279,7 @@ sub  getzoneinfo
           $zonehash->{$zonename}->{defaultzone}= $zone->{defaultzone};
           # find the defaultzone
           if ((defined($zone->{defaultzone})) && 
-             (($zone->{defaultzone} =~ /yes/i) or ($zone->{defaultzone} eq "1"))) {
+             (($zone->{defaultzone} =~ "yes") || ($zone->{defaultzone} = "1"))) {
               $defaultzone = $zone->{zonename};
           }
        }
@@ -324,6 +324,6 @@ sub  getzoneinfo
       }   
     }   
  }
- return $zonehash;
+ return;
 }
 1;