From 55e10f5aeb6d0559518623a432263d4a73d7614b Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 24 Oct 2014 23:01:30 +0200
Subject: Fix perlcritic issues for all scripts starting with s to z

---
 scripts/sms.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'scripts/sms.pl')

diff --git a/scripts/sms.pl b/scripts/sms.pl
index cdc39ec..14a4125 100644
--- a/scripts/sms.pl
+++ b/scripts/sms.pl
@@ -1,3 +1,4 @@
+use strict;
 use Irssi 20020300;
 use 5.6.0;
 use Socket;
@@ -198,7 +199,7 @@ sub smsstat {
 
 sub savesms {
 	local *fp;
-	open (fp, ">$smsfile") or die "Couldn't open $smsfile for writing";
+	open (fp, ">", $smsfile) or die "Couldn't open $smsfile for writing";
 	for my $sms (@smslist) {
 		print(fp "$sms->{handle} $sms->{phone}\n");
 	}
@@ -209,7 +210,7 @@ sub loadsms {
 	@smslist = ();
 	return unless (-e $smsfile);
 	local *fp;
-	open(fp, "<$smsfile");
+	open(fp, "<", $smsfile);
 	local $/ = "\n";
 	while (<fp>) {
 		chop;
-- 
cgit v1.2.3