diff options
Diffstat (limited to 'scripts/sms.pl')
| -rw-r--r-- | scripts/sms.pl | 5 |
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; |