From 31f5cc6e916538082c52e810acccbbb0883ab66b Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 13 Sep 2010 13:05:14 +0000
Subject: [PATCH] fix reuse of  variable

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7436 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/ExtTab.pm | 2 +-
 perl-xCAT/xCAT/Table.pm  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/ExtTab.pm b/perl-xCAT/xCAT/ExtTab.pm
index 7b865aa21..cd6521c20 100644
--- a/perl-xCAT/xCAT/ExtTab.pm
+++ b/perl-xCAT/xCAT/ExtTab.pm
@@ -193,7 +193,7 @@ sub get_filelist
     {
         my $filename= basename($file);  # strip filename
         my($name,$ext1) = split '\.', $filename;
-        my($name,$ext2) = split '\_', $name;
+        my($tmpname,$ext2) = split '\_', $name;
         if ($ext2 eq $dbname)   # matches the database
         {
             push @filelist, $file;
diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 443851a6e..f9201f870 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -3616,7 +3616,7 @@ sub get_filelist
     {
           my $filename= basename($file);  # strip filename
           my($name,$ext1) = split '\.', $filename;
-          my($name,$ext2) = split '\_', $name;
+          my($tmpname,$ext2) = split '\_', $name;
           if ($ext2 eq $dbname)
           {
             push @filelist, $file;