From f825a36124fa8bfb71a5cb354cfdda1b2937761e Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 10 Feb 2011 14:20:05 +0000
Subject: [PATCH] change get_filelist to be able to handle underscore in file
 name

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8816 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Table.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 39404a578..5a88a3aab 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -3505,7 +3505,9 @@ sub get_filelist
     {
           my $filename= basename($file);  # strip filename
           my($name,$ext1) = split '\.', $filename;
-          my($tmpname,$ext2) = split '\_', $name;
+          #my($tmpname,$ext2) = split '\_', $name;
+          my @parts = split '\_', $name;
+          my $ext2 = $parts[-1];  # get last element
           if ($ext2 eq $dbname)
           {
             push @filelist, $file;