diff options
| author | bw1 | 2017-03-19 21:19:42 +0100 |
|---|---|---|
| committer | bw1 | 2017-03-19 21:19:42 +0100 |
| commit | b3a35bf19cf9e04e5fca18dcb28ffc25836d64dd (patch) | |
| tree | 53f0e7f3ddc9b0e3569fdf5b4cadfae38fc3cd03 /scripts/dau.pl | |
| parent | 54f02af940ee84fbdc5bb8b930168040169da5d2 (diff) | |
| download | scripts.irssi.org-b3a35bf19cf9e04e5fca18dcb28ffc25836d64dd.tar.bz2 | |
[dau][CRIT] rewrite open
Diffstat (limited to 'scripts/dau.pl')
| -rw-r--r-- | scripts/dau.pl | 10 |
1 files changed, 5 insertions, 5 deletions
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"); #} |