From 7292b72668557e9dfcff71eea9729cbd8b523c94 Mon Sep 17 00:00:00 2001
From: Chris Koeritz <fred@gruntose.com>
Date: Tue, 21 Feb 2012 22:26:08 -0500
Subject: [PATCH] tossing some antiquated ways of outputting to null device.

---
 scripts/archival/shared_snarfer.pl | 8 --------
 scripts/files/safedel.pl           | 3 +--
 scripts/files/zapdirs.pl           | 3 +--
 3 files changed, 2 insertions(+), 12 deletions(-)

diff --git a/scripts/archival/shared_snarfer.pl b/scripts/archival/shared_snarfer.pl
index 4424d61e..9edc4142 100644
--- a/scripts/archival/shared_snarfer.pl
+++ b/scripts/archival/shared_snarfer.pl
@@ -28,15 +28,7 @@ require "inc_num.pl";
 use Cwd;
 use File::Which;
 
-#hmmm: maybe move this to a utility script file.
 $null_log = "/dev/null";
-#hmmm: move especially this check to a script file, and recast anything
-#      referring to Windows_NT to it.
-if ( ("$OS" =~ /[wW][iI][nN]/) || ("$OS" =~ /[Oo][Ss]2/)
-    || ("$OS" =~ /[Dd][Oo][Ss]/) ) {
-  $null_log = "nul"
-}
-#print "nul log=$null_log \n";
 
 $TMP =~ s/\\/\//g;  # fix the temp variable for ms-winders.
 
diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index 7cf9647a..44288b41 100644
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -32,14 +32,13 @@ if ($#ARGV < 0) {
   die "Too few arguments to command.";
 }
 
+$DEV_NULL = "&> /dev/null";
 if ($OS eq "UNIX") {
   $FIND_ENDING = "';'";
-  $DEV_NULL = "> /dev/null";
   $zip = "zip -y ";
 } elsif ( ($OS eq "DOS") || ($OS eq "Windows_95")
     || ($OS eq "Windows_98") || ($OS eq "Windows_NT") ) {
   $FIND_ENDING = "';'";
-  $DEV_NULL = "> nul";
   $zip = "zip ";
 } else {
   die "The Operating System variable (OS) is not set.\n";
diff --git a/scripts/files/zapdirs.pl b/scripts/files/zapdirs.pl
index 8a3a23fe..d64e5e51 100644
--- a/scripts/files/zapdirs.pl
+++ b/scripts/files/zapdirs.pl
@@ -21,14 +21,13 @@
 
 require "zap_the_dir.pl";
 
+$DEV_NULL = "&>/dev/null"
 #hmmm: move this to a useful location in a perl library.
 if ($OS eq "UNIX") {
   $FIND_ENDING = "';'";
-  $DEV_NULL = "> /dev/null"
 } elsif ( ($OS eq "DOS") || ($OS eq "Windows_95")
     || ($OS eq "Windows_98") || ($OS eq "Windows_NT") ) {
   $FIND_ENDING = "';'";
-  $DEV_NULL = "> nul"
 } else {
   die "The Operating System variable (OS) is not set.\n";
 }
-- 
2.34.1