diff options
| author | Obfuscoder | 2014-10-24 23:01:30 +0200 |
|---|---|---|
| committer | Obfuscoder | 2014-10-24 23:01:30 +0200 |
| commit | 55e10f5aeb6d0559518623a432263d4a73d7614b (patch) | |
| tree | c8125ac40ada1411c240cd68d6535d532849e631 /scripts/urlplot.pl | |
| parent | ff9a44047a299bce4995c22fd6f15851e1b065ee (diff) | |
| download | scripts.irssi.org-55e10f5aeb6d0559518623a432263d4a73d7614b.tar.bz2 | |
Fix perlcritic issues for all scripts starting with s to z
Diffstat (limited to 'scripts/urlplot.pl')
| -rw-r--r-- | scripts/urlplot.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/urlplot.pl b/scripts/urlplot.pl index cbc9ba4..a56d124 100644 --- a/scripts/urlplot.pl +++ b/scripts/urlplot.pl @@ -479,7 +479,7 @@ sub create_chan_template { my ($full_log, $file, $channel) = @_; my $reload = Irssi::settings_get_int(KEY_URL_LOG_FILE_AUTORELOAD_TIME); local *FH; - open(FH, "> $file") + open(FH, ">", $file) || die "can't create logfile $file: $!"; print_chan_log_file_template(\*FH, $reload, $channel, $full_log); print FH LOG_FILE_TAIL; @@ -490,7 +490,7 @@ sub create_full_template { my $file = shift; my $reload = Irssi::settings_get_int(KEY_URL_LOG_FILE_AUTORELOAD_TIME); local *FH; - open(FH, "> $file") + open(FH, ">", $file) || die "can't create logfile $file: $!"; print_full_log_file_template(\*FH, $reload); print FH LOG_FILE_TAIL; @@ -499,7 +499,7 @@ sub create_full_template { sub create_csv_file { my $file = shift; - open(FH, "> $file") + open(FH, ">", $file) || die "can't create $file: $!"; close FH; } @@ -509,7 +509,7 @@ sub log_csv { my $sep = Irssi::settings_get_str(KEY_URL_LOG_CSV_SEPARATOR); my $fields = join $sep, @_; local *FH; - open(FH, ">> $csv_log") + open(FH, ">>", $csv_log) || die "can't open $csv_log: $!"; print FH "$fields\n"; close FH; |