diff options
| author | Obfuscoder | 2014-10-19 11:54:16 +0200 |
|---|---|---|
| committer | Obfuscoder | 2014-10-19 11:54:16 +0200 |
| commit | dd80027b51b3ee71027a2612595aee38e38c0d6e (patch) | |
| tree | 0f0b84efd10e9288695d86b69de324c467fe4e7b /scripts/autoopper.pl | |
| parent | 263a56d196da657b72ccf2b195b50008d6a988dc (diff) | |
| download | scripts.irssi.org-dd80027b51b3ee71027a2612595aee38e38c0d6e.tar.bz2 | |
Fix perlcritic issues for all scripts starting with m to r
Diffstat (limited to 'scripts/autoopper.pl')
| -rw-r--r-- | scripts/autoopper.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/autoopper.pl b/scripts/autoopper.pl index 435c696..061e5bc 100644 --- a/scripts/autoopper.pl +++ b/scripts/autoopper.pl @@ -159,7 +159,7 @@ sub read_dynamic_hosts { # Save data to file sub cmd_save_autoop { my $file = Irssi::get_irssi_dir."/autoop"; - open FILE, "> $file" or return; + open FILE, ">", "$file" or return; foreach my $item (@opitems) { printf FILE ("%s\t%s\t%s\n", $item->{mask}, $item->{chan}, $item->{dynamic}); @@ -172,7 +172,7 @@ sub cmd_save_autoop { # Load data from file sub cmd_load_autoop { my $file = Irssi::get_irssi_dir."/autoop"; - open FILE, "< $file" or return; + open FILE, "<","$file" or return; undef @opitems if (@opitems); while (<FILE>) { |