tossing some antiquated ways of outputting to null device.

diff --git a/scripts/archival/shared_snarfer.pl b/scripts/archival/shared_snarfer.pl
index 4424d61e4b9223aaa18ab78d41159c92cb316030..9edc41427297fde85a2349f197ca938c2d1e420a 100644 (file)
--- 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 7cf9647ade5e9d55f562b33b8ef40693ac1fe502..44288b414e9d1cd6dadffcf68e57b1083a25919f 100644 (file)
--- 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 8a3a23feafaab543ae92a3f7d89f1ff34b47abb8..d64e5e510657104a05b2116c2f25b92149d9b3e5 100644 (file)
--- 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";
 }