From dd80027b51b3ee71027a2612595aee38e38c0d6e Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Sun, 19 Oct 2014 11:54:16 +0200
Subject: Fix perlcritic issues for all scripts starting with m to r

---
 scripts/autoopper.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts/autoopper.pl')

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>) {
-- 
cgit v1.2.3