X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Farchival%2Fshared_snarfer.pl;h=60845421df08b5a889c71aade54318c18ce536bc;hb=a67ac95be82ed8491442d9e93f47184c0a4f73a0;hp=3a24cc4eb9ff584770c2a4761842366c158e69a8;hpb=114c4d0b2dcaebe6bab3a24ad07483c5bacc7ece;p=feisty_meow.git diff --git a/scripts/archival/shared_snarfer.pl b/scripts/archival/shared_snarfer.pl index 3a24cc4e..60845421 100644 --- a/scripts/archival/shared_snarfer.pl +++ b/scripts/archival/shared_snarfer.pl @@ -168,7 +168,7 @@ sub snarfer { chdir($root); local($outcome) = 0; - my @lines = qx( $find_tool "$subdir" @extra_flags "-type" "f" ); + my @lines = qx( $find_tool "$subdir" @extra_flags "-follow" "-type" "f" ); # if ( ($! != 0) || ($? != 0) ) { # die("failure to find files in $subdir"); # } @@ -227,9 +227,10 @@ sub snarf_file_list { } local($outcome) = 0xff & system $tar_tool, #"--directory=" . "$root", - @extra_flags, + #hmmm: trying to dereference symbolic links and stop missing stuff. "-h", + @extra_flags, "-rf", &canonicalize($target_file), @excludes, $i; if ($outcome) { die("failure to archive"); } } @@ -387,7 +388,12 @@ sub backup_number { print NUM_PREFIX $number_prefix; close(NUM_PREFIX); - $outcome = 0xff & system $tar_tool, "-rf", + $outcome = 0xff & system $tar_tool, + +#hmmm: trying to dereference symbolic links and stop missing stuff. +"-h", + +"-rf", &canonicalize($target_file), &canonicalize($prefix_file); if ($outcome) { die("failure to archive"); } unlink($prefix_file);