diff options
author | Peter Palfrader <peter@palfrader.org> | 2002-07-16 02:50:18 +0000 |
---|---|---|
committer | Peter Palfrader <peter@palfrader.org> | 2002-07-16 02:50:18 +0000 |
commit | 3e694cd8176402daa686e7f3a1ef09c02bda5d5e (patch) | |
tree | 289d7e4fca69a4b14ee5586ee6681170fee3e156 /pingd | |
parent | df6ff9a2b3b96c9badade7e082dba6f3080eab0f (diff) |
Pass mask to mkdir for older perls
Diffstat (limited to 'pingd')
-rwxr-xr-x | pingd | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3,7 +3,7 @@ $| = 1; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: pingd,v 1.42 2002/07/16 00:53:33 weasel Exp $ +# $Id: pingd,v 1.43 2002/07/16 02:50:18 weasel Exp $ # =pod @@ -442,7 +442,7 @@ sub make_dirs() { Echolot::Config::get()->{'storage'}->{'File'}->{'basedir'} ) { if ( ! -d $dir ) { - mkdir ($dir) or + mkdir ($dir, 0755) or confess ("Cannot create directory $dir: $!\n"); }; }; |