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;