bug fix for statelite

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5394 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2010-03-05 22:04:11 +00:00
parent d5da920dfe
commit 8eabe3293a

View File

@ -271,6 +271,16 @@ sub liteMe {
my $sym = "1"; # sym = 0 means no symlinks, just bindmount
if($sym){
foreach my $f (@$files){
#check if the file has been moved to .default by its parent or by last liteimg, if yes, then do nothing
my $ret=`readlink -m $rootimg_dir$f`;
if ($? == 0) {
if ($ret =~ /$rootimg_dir\/.default/)
{
$verbose && $callback->({info=>["do nothing for file $f"]});
next;
}
}
# copy the file to /.defaults
my $rif = $rootimg_dir . $f;
my $d = dirname($f);