Fix perlcritic issues for all scripts starting with s to z

1 files changed, 3 insertions, 2 deletions

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;