diff options
| author | martin f. krafft | 2017-02-15 22:20:06 +0100 |
|---|---|---|
| committer | martin f. krafft | 2017-02-15 22:34:44 +0100 |
| commit | d707da591a371427bf67e9eb1a7a2993c5730c55 (patch) | |
| tree | 459892248449175134ee8bc6d11c09dafffed09e /scripts | |
| parent | 9a06b4ae868eb006c1db46c61502ff8d49ebec4f (diff) | |
| download | scripts.irssi.org-d707da591a371427bf67e9eb1a7a2993c5730c55.tar.bz2 | |
Switch to 3-arg open calls
Signed-off-by: martin f. krafft <madduck@madduck.net>
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/ctrlact.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/ctrlact.pl b/scripts/ctrlact.pl index c35a2c4..534b00a 100644 --- a/scripts/ctrlact.pl +++ b/scripts/ctrlact.pl @@ -361,10 +361,10 @@ sub get_mappings_fh { my ($filename) = @_; my $fh; if (-e $filename) { - open($fh, $filename) || croak "Cannot open mappings file: $!"; + open($fh, '<', $filename) || croak "Cannot open mappings file: $!"; } else { - open($fh, "+>$filename") || croak "Cannot create mappings file: $!"; + open($fh, '+>', $filename) || croak "Cannot create mappings file: $!"; my $ftw = from_data_level($fallback_window_threshold); my $ftc = from_data_level($fallback_channel_threshold); |