projects
/
feisty_meow.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cdc8710
)
back to former version. was just missing the folder.
author
Fred T. Hamster
<fred@gruntose.com>
Mon, 26 Aug 2013 07:02:20 +0000
(
03:02
-0400)
committer
Fred T. Hamster
<fred@gruntose.com>
Mon, 26 Aug 2013 07:02:20 +0000
(
03:02
-0400)
scripts/archival/shared_snarfer.pl
patch
|
blob
|
history
diff --git
a/scripts/archival/shared_snarfer.pl
b/scripts/archival/shared_snarfer.pl
index c6b9491071892868fa9c4a1beeca8e8f811345b2..f37cdcbf90c5641281e73061fc85c8410efad1cb 100644
(file)
--- 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";
# 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";
#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();
local($target_file) = &snarf_name($prefix, $number);
local($currdir) = cwd();
+print "got root as: '$root'\n";
chdir("$root");
local(@files) = &glob_list($file_pattern);
chdir("$root");
local(@files) = &glob_list($file_pattern);