perl seems to interfere with &> /dev/null, and rather than research why right now,

i switched to '> /dev/null 2> /dev/null'.

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index 44288b414e9d1cd6dadffcf68e57b1083a25919f..97fa01d9791e618b97ec68d2da73fa929b930246 100644 (file)
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -32,7 +32,7 @@ if ($#ARGV < 0) {
   die "Too few arguments to command.";
 }
 
-$DEV_NULL = "&> /dev/null";
+$DEV_NULL = "> /dev/null 2> /dev/null";
 if ($OS eq "UNIX") {
   $FIND_ENDING = "';'";
   $zip = "zip -y ";

diff --git a/scripts/files/zapdirs.pl b/scripts/files/zapdirs.pl
index f2b397a77bf2b4e72c0d4a8a32a2625c76a5a85f..9ca8cb390a112c7b886bafee6f6e9bfc2204b73e 100644 (file)
--- a/scripts/files/zapdirs.pl
+++ b/scripts/files/zapdirs.pl
@@ -21,7 +21,7 @@
 
 require "zap_the_dir.pl";
 
-$DEV_NULL = "&>/dev/null";
+$DEV_NULL = "> /dev/null 2> /dev/null";
 #hmmm: move this to a useful location in a perl library.
 if ($OS eq "UNIX") {
   $FIND_ENDING = "';'";