From 91f90b825f66510ca3a95464b84d8e60c7d0f315 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Mon, 3 Feb 2003 12:58:22 +0000
Subject: [PATCH] bug in perl

---
 mycp/mycp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mycp/mycp b/mycp/mycp
index 211ec7c..e5ac5b2 100755
--- a/mycp/mycp
+++ b/mycp/mycp
@@ -37,7 +37,7 @@ sub backup($) {
 		@timestamp = localtime($stat[9]);
 		$timestamp[5] += 1900;
 		$sfx = "$timestamp[3]$months[$timestamp[4]]$timestamp[5]";
-		unless ( -d "$dir/OLD" ) { mkdir "$dir/OLD" or die "Couldn't create $dir/OLD: $!\n"; }
+		unless ( -d "$dir/OLD" ) { mkdir "$dir/OLD", 0777 or die "Couldn't create $dir/OLD: $!\n"; }
 		$backup = "$dir/OLD/$base.$sfx";
 
 		if ( -e $backup && ! &cmp($file, $backup) ) {