From: bw1 <redacted>
Date: Sun, 19 Mar 2017 20:19:42 +0000 (+0100)
Subject: [dau][CRIT] rewrite open
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=b3a35bf19cf9e04e5fca18dcb28ffc25836d64dd;p=irssi-scripts.irssi.org.git

[dau][CRIT] rewrite open
---

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");
 #}