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/monitor.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts/monitor.pl')

diff --git a/scripts/monitor.pl b/scripts/monitor.pl
index adbb8f1..bad1cd8 100644
--- a/scripts/monitor.pl
+++ b/scripts/monitor.pl
@@ -351,7 +351,7 @@ sub cmd_monitor_save {
 	#my ($data, $server, $item) = @_;
 	my $file = Irssi::get_irssi_dir."/monitor";
 	my ($net, $n, $k);
-	open FILE, "> $file" or return;
+	open FILE, ">", $file or return;
 	foreach $net (keys %monitorlist) {
 		foreach $n (keys %{$monitorlist{$net}}) {
 			$monitorlist{$net}{$n}{lastseen} = time() if $monitorlist{$net}{$n}{mask_online};
@@ -369,7 +369,7 @@ sub cmd_monitor_load {
 	#my ($data, $server, $item) = @_;
 	my $file = Irssi::get_irssi_dir."/monitor";
 
-	open FILE, "< $file" or return;
+	open FILE, "<", $file or return;
 	%monitorlist = ();
 	while (<FILE>) {
 		chomp;
-- 
cgit v1.2.3