From cdc8710b5258c1f81ba49f697f04ed9c4939f4cd Mon Sep 17 00:00:00 2001
From: "Fred T. Hamster" <fred@gruntose.com>
Date: Mon, 26 Aug 2013 02:57:16 -0400
Subject: [PATCH] getting some screwy messages about chdir from perl.

---
 scripts/archival/shared_snarfer.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scripts/archival/shared_snarfer.pl b/scripts/archival/shared_snarfer.pl
index 6d157163..c6b94910 100644
--- a/scripts/archival/shared_snarfer.pl
+++ b/scripts/archival/shared_snarfer.pl
@@ -129,7 +129,9 @@ 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";
-    chdir($drive);
+    if (length($drive) > 0) {
+      chdir($drive);
+    }
 #print "cwd now=" . cwd() . "\n";
     $directory = substr($directory, 4);  # rip off absolutist path.
 #print "using dir now as $directory\n";
-- 
2.34.1