From a6b562d2622b30d305dd614d197d721691fffe65 Mon Sep 17 00:00:00 2001
From: fhemzap <fhemzap@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 24 Mar 2016 16:57:11 +0000
Subject: [PATCH] HMCCU: Fixed bug with queue file permissions

git-svn-id: https://svn.fhem.de/fhem/trunk@11121 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/HMCCU/FHEM/88_HMCCU.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/contrib/HMCCU/FHEM/88_HMCCU.pm b/fhem/contrib/HMCCU/FHEM/88_HMCCU.pm
index 6dfee87b3..55b8826c9 100644
--- a/fhem/contrib/HMCCU/FHEM/88_HMCCU.pm
+++ b/fhem/contrib/HMCCU/FHEM/88_HMCCU.pm
@@ -2969,8 +2969,8 @@ sub HMCCU_QueueOpen ($$)
 	$hash->{hmccu}{queue}{queue_file} = $queue_file;
 	$hash->{hmccu}{queue}{idx_file} = $idx_file;
 
-	$hash->{hmccu}{queue}{queue} = new IO::File $queue_file, O_CREAT | O_RDWR, $mode or return 0;
-	$hash->{hmccu}{queue}{idx} = new IO::File $idx_file, O_CREAT | O_RDWR, $mode or return 0;
+	$hash->{hmccu}{queue}{queue} = new IO::File $queue_file, O_CREAT | O_RDWR, oct($mode) or return 0;
+	$hash->{hmccu}{queue}{idx} = new IO::File $idx_file, O_CREAT | O_RDWR, oct($mode) or return 0;
 
 	### Default ptr to 0, replace it with value in idx file if one exists
 	$hash->{hmccu}{queue}{idx}->sysseek(0, SEEK_SET);