From 3e694cd8176402daa686e7f3a1ef09c02bda5d5e Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 16 Jul 2002 02:50:18 +0000
Subject: Pass mask to mkdir for older perls

---
 pingd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pingd b/pingd
index fb64c43..a62b376 100755
--- a/pingd
+++ b/pingd
@@ -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");
 		};
 	};
-- 
cgit v1.2.3