diff --git a/perl-xCAT/xCAT/DBobjUtils.pm b/perl-xCAT/xCAT/DBobjUtils.pm index 9eb185374..fc9e9b0fd 100755 --- a/perl-xCAT/xCAT/DBobjUtils.pm +++ b/perl-xCAT/xCAT/DBobjUtils.pm @@ -1676,13 +1676,10 @@ sub readFileInput # could have different default stanzas for different object types - if ($objectname =~ /default/) { + if ($objectname =~ /^default-([^-]+)$/) { - ($junk1, $objtype) = split(/-/, $objectname); - - if ($objtype) { - $objectname = 'default'; - } + $objtype = $1; + $objectname = 'default'; next; }