Merge branch 'perlcritic-e-l' of git://github.com/obfuscoder/scripts.irssi.org into obfuscoder-perlcritic-e-l

Conflicts:
	scripts/eng_no_translate_dpryo.pl

1 files changed, 2 insertions, 2 deletions

diff --git a/scripts/getop.pl b/scripts/getop.pl
index 1dbd75c..4b1914c 100644
--- a/scripts/getop.pl
+++ b/scripts/getop.pl
@@ -343,7 +343,7 @@ sub channel_sync {
 
 sub savegetop {
 	local *fp;
-	open (fp, ">$getopfile") or die "Couldn't open $getopfile for writing";
+	open (fp, ">", $getopfile) or die "Couldn't open $getopfile for writing";
 
 	for my $ircnet (keys %getop) {
 		for my $chan (keys %{$getop{$ircnet}}) {
@@ -361,7 +361,7 @@ sub loadgetop {
 	return unless (-e $getopfile);
 	local *fp;
 
-	open (fp, "<$getopfile") or die "Couldn't open $getopfile for reading";
+	open (fp, "<", $getopfile) or die "Couldn't open $getopfile for reading";
 	local $/ = "\n";
 	
 	while (<fp>) {