From 8c74610aa57655d5a2041e1d5a494c2fa57f4eca Mon Sep 17 00:00:00 2001
From: Chris Koeritz <fred@gruntose.com>
Date: Thu, 23 Feb 2012 10:58:28 -0500
Subject: [PATCH] perl seems to interfere with &> /dev/null, and rather than
 research why right now, i switched to '> /dev/null 2> /dev/null'.

---
 scripts/files/safedel.pl | 2 +-
 scripts/files/zapdirs.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index 44288b41..97fa01d9 100644
--- 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 f2b397a7..9ca8cb39 100644
--- 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 = "';'";
-- 
2.34.1