diff options
| author | ivan <ivan> | 2002-06-11 18:20:38 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-06-11 18:20:38 +0000 |
| commit | c189704fb7f1c2dce5362b5210fa957e274b3f55 (patch) | |
| tree | abfe96450f5a72990822f076e25dc32ee4c5f519 /bin/shell.export | |
| parent | 340906d63346ccf1cffe138e58feb5244e1aa0a2 (diff) | |
perl 5.005 needs an explicit mask for mkdir
Diffstat (limited to 'bin/shell.export')
| -rwxr-xr-x | bin/shell.export | 2 |
1 files changed, 1 insertions, 1 deletions
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!!! |