diff options
| -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); |