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

@@ -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;