diff options
| author | David Leadbeater | 2015-01-10 17:26:59 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:26:59 +0000 |
| commit | 1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (patch) | |
| tree | 03d3b85d868a72a6b162c7dca8ea7c0173510618 /scripts/urlplot.pl | |
| parent | 6fa0cda4b3f7d54d5835fe580795e4f35980cc28 (diff) | |
| parent | 55e10f5aeb6d0559518623a432263d4a73d7614b (diff) | |
| download | scripts.irssi.org-1bae3cffef57d4d46d0230aa4f44cc52c7671b93.tar.bz2 | |
Merge pull request #83 from obfuscoder/perlcritic-s-z
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; |