From c189704fb7f1c2dce5362b5210fa957e274b3f55 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 11 Jun 2002 18:20:38 +0000
Subject: perl 5.005 needs an explicit mask for mkdir

---
 bin/shell.export | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bin/shell.export')

diff --git a/bin/shell.export b/bin/shell.export
index 3ccda3500..064d56e63 100755
--- a/bin/shell.export
+++ b/bin/shell.export
@@ -28,7 +28,7 @@ my $rsync = File::Rsync->new({
 foreach my $export ( @sysv_exports ) {
   my $machine = $export->machine;
   my $prefix = "$spooldir/$machine";
-  mkdir $prefix unless -d $prefix;
+  mkdir $prefix, 0700 unless -d $prefix;
 
   #LOCKING!!!
 
-- 
cgit v1.2.1