From b3a35bf19cf9e04e5fca18dcb28ffc25836d64dd Mon Sep 17 00:00:00 2001
From: bw1
Date: Sun, 19 Mar 2017 21:19:42 +0100
Subject: [dau][CRIT] rewrite open

---
 _testing/config.yml |  1 -
 scripts/dau.pl      | 10 +++++-----
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/_testing/config.yml b/_testing/config.yml
index 12deff7..159f6d0 100644
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -39,7 +39,6 @@ whitelist:
   - cap_sasl_fail
   - cap_sasl
   - connectcmd
-  - dau
   - dnsspam
   - irc_chess
   - ircgallery
diff --git a/scripts/dau.pl b/scripts/dau.pl
index 89a6623..ac8c051 100644
--- a/scripts/dau.pl
+++ b/scripts/dau.pl
@@ -1417,7 +1417,7 @@ sub switch_create_files {
 
 	} else {
 
-		if (open(FH1, "> $file1")) {
+		if (open(FH1, ">", $file1)) {
 
 			print FH1 &fix(<<'			END');
 			# dau.pl - http://dau.pl/
@@ -1451,7 +1451,7 @@ sub switch_create_files {
 
 	} else {
 
-		if (open(FH1, "> $file2")) {
+		if (open(FH1, ">", $file2)) {
 
 			print FH1 &fix(<<'			END');
 			END
@@ -1479,7 +1479,7 @@ sub switch_create_files {
 
 	} else {
 
-		if (open(FH1, "> $file3")) {
+		if (open(FH1, ">", $file3)) {
 
 			print FH1 &fix(<<'			END');
 			END
@@ -5736,7 +5736,7 @@ sub time_parse {
 ################################################################################
 
 sub debug_message {
-        open(DEBUG, ">> $ENV{HOME}/.dau/.debug");
+        open(DEBUG, ">>", "$ENV{HOME}/.dau/.debug");
 
         print DEBUG $_[0];
 
@@ -5746,5 +5746,5 @@ sub debug_message {
 #BEGIN {
 #	use warnings;
 #
-#	open(STDERR, ">> $ENV{HOME}/.dau/.STDERR");
+#	open(STDERR, ">>", $ENV{HOME}/.dau/.STDERR");
 #}
-- 
cgit v1.2.3