X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Farchival%2Fshared_snarfer.pl;h=f37cdcbf90c5641281e73061fc85c8410efad1cb;hb=a96016cae15113640d2407d1e5d5fff71f2c573f;hp=c6b9491071892868fa9c4a1beeca8e8f811345b2;hpb=cdc8710b5258c1f81ba49f697f04ed9c4939f4cd;p=feisty_meow.git

diff --git a/scripts/archival/shared_snarfer.pl b/scripts/archival/shared_snarfer.pl
index c6b94910..f37cdcbf 100644
--- a/scripts/archival/shared_snarfer.pl
+++ b/scripts/archival/shared_snarfer.pl
@@ -129,9 +129,7 @@ sub chdir_to_top {
     # magic to get the paths to work right.
     local($drive) = substr($directory, 0, 4);  # get just drive letter biz.
 #print "going to change to $drive\n";
-    if (length($drive) > 0) {
-      chdir($drive);
-    }
+    chdir($drive);
 #print "cwd now=" . cwd() . "\n";
     $directory = substr($directory, 4);  # rip off absolutist path.
 #print "using dir now as $directory\n";
@@ -206,6 +204,7 @@ sub snarf_file_list {
   local($target_file) = &snarf_name($prefix, $number);
 
   local($currdir) = cwd();
+print "got root as: '$root'\n";
   chdir("$root");
 
   local(@files) = &glob_list($file_pattern);