X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Farchival%2Fshared_snarfer.pl;h=91ee6d75a83c9f1f32183613a8b6c8517470ad92;hb=78260fb9e066ca6e391494b567b2758073491edc;hp=efa6bd20b347e1d6f1ecf48a4f5f4298aab38c3d;hpb=a94d5c66f29ae77337522af66f1faf0915bd9981;p=feisty_meow.git diff --git a/scripts/archival/shared_snarfer.pl b/scripts/archival/shared_snarfer.pl index efa6bd20..91ee6d75 100644 --- a/scripts/archival/shared_snarfer.pl +++ b/scripts/archival/shared_snarfer.pl @@ -36,7 +36,7 @@ $TMP =~ s/\\/\//g; # fix the temp variable for ms-winders. @missing_log = (); # these files are considered unimportant and won't be included in the archive. -@junk_file_list = ("*~", "*.$$$", "3rdparty", "*.aps", "*.bak", "binaries", +@junk_file_list = ("*~", "*.$$$", "*.aps", "*.bak", "binaries", "*.bsc", "*.cgl", "*.csm", "CVS", "Debug", "*.dll", "*.err", "*.exe", "generated_*", "*.git", "*.glb", "inprogress", "ipch", "*.llm", "*.log", "*.lnk", @@ -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"); } }