From 89e9af812502a016663667a857a1dd0c6fe3057f Mon Sep 17 00:00:00 2001 From: Chris Koeritz Date: Mon, 13 Feb 2012 08:26:29 -0500 Subject: [PATCH] turned off debugging noise. --- scripts/archival/shared_snarfer.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/archival/shared_snarfer.pl b/scripts/archival/shared_snarfer.pl index 00c41d3f..998cc5f7 100644 --- a/scripts/archival/shared_snarfer.pl +++ b/scripts/archival/shared_snarfer.pl @@ -277,7 +277,7 @@ sub remove_from_backup { # recursively scoops up a directory hierarchy. sub backup_hierarchy { local($prefix, $number, $root, $filepart) = @_; -print "backup_hierarchy: pref=$prefix, num=$number, root=$root, filepart=$filepart\n"; +#print "backup_hierarchy: pref=$prefix, num=$number, root=$root, filepart=$filepart\n"; local(@locus_temp) = &glob_list($root); local($save_root) = $root; local($root) = $locus_temp[0]; @@ -338,7 +338,7 @@ sub snarf_by_pattern { } @dir_contents = &glob_list("$dir$extra_piece/*$pattern*"); - print "dir contents: @dir_contents\n"; +# print "dir contents: @dir_contents\n"; if (!scalar(@dir_contents)) { print "no '$pattern' directores were backed up in $dir.\n"; -- 2.34.1