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