From f8da93908fabc09e770a0a4b282e0d0cf4802e8f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 30 Oct 2003 11:14:11 +0000 Subject: better list obtained using patched nfsd instead of Strace --- move/make_live_tree_boot | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'move/make_live_tree_boot') diff --git a/move/make_live_tree_boot b/move/make_live_tree_boot index 209631472..a6dc47721 100755 --- a/move/make_live_tree_boot +++ b/move/make_live_tree_boot @@ -19,7 +19,7 @@ if (@ARGV && $ARGV[0] eq '-u') { if (-e $dest && -s $dest != -s $orig) { warn "ERROR: $dest already exist, skipping\n"; - } else { + } elsif (!-d $dest || -l $dest) { unlink $dest or die "removing $dest failed: $!\n"; rename $orig, $dest or die "moving $orig to $dest failed: $!\n"; } @@ -27,6 +27,9 @@ if (@ARGV && $ARGV[0] eq '-u') { rmdir($_) foreach reverse(chomp_(`find $boot_prefix -type d`)); if (-e $boot_prefix) { + print "still there:\n"; + system('find', $boot_prefix); + foreach my $dest (chomp_(`find $prefix -type l`)) { my $orig = readlink($dest) or next; $orig =~ s!/image_boot/!$boot_prefix/! or next; -- cgit v1.2.1