[dau][CRIT] rewrite open

diff --git a/_testing/config.yml b/_testing/config.yml
index 12deff75a2ae5361b32a47315870dcf20d5ccfd1..159f6d0b7d869e98d850ff8a651ca1534fa67a1d 100644 (file)
--- 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 89a66230c20cc1940491b20b4dfcb1e3231ba60a..ac8c0516c1430a56647d9dd0b7b622b32013b0ca 100644 (file)
--- 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");
 #}