Fix perlcritic issues for all scripts starting with m to r

1 files changed, 2 insertions, 4 deletions

diff --git a/scripts/mkshorterlink.pl b/scripts/mkshorterlink.pl
index 5add6d6..6199608 100644
--- a/scripts/mkshorterlink.pl
+++ b/scripts/mkshorterlink.pl
@@ -14,8 +14,6 @@ use LWP::UserAgent;
 use strict;
 use vars qw($VERSION %IRSSI);
 
-$VERSION = "0.3";
-
 %IRSSI = (
 	  'authors'	=> 'Gergely Nagy',
 	  'contact'	=> 'algernon\@bonehunter.rulez.org',
@@ -165,7 +163,7 @@ sub load_unshortlist {
 	my $count = 0;
 	local *CONF;
 	
-	open CONF, "< $file";
+	open CONF, "<", $file;
 	while (<CONF>)
 	{
 		$noshort{$_} = 1;
@@ -181,7 +179,7 @@ sub save_unshortlist {
 	my $file = Irssi::get_irssi_dir."/unshortlist";
 	local *CONF;
 
-	open CONF, "> $file";
+	open CONF, ">", $file;
 	foreach (keys %noshort)
 	{
 		print CONF $_ if ($noshort{$_});