diff options
Diffstat (limited to 'scripts/licq.pl')
| -rw-r--r-- | scripts/licq.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scripts/licq.pl b/scripts/licq.pl index cc7b1ec..92a83a1 100644 --- a/scripts/licq.pl +++ b/scripts/licq.pl @@ -1,3 +1,5 @@ +use strict; +use vars qw($VERSION %IRSSI); $VERSION = "0.5"; %IRSSI = ( authors => "Jari Matilainen", @@ -25,7 +27,7 @@ sub licq { my $filename = "$rdir" . "$_"; if(-e $filename) { - open(FILE, $filename); + open(FILE, "<", $filename); $_ = ""; $_ = <FILE> until /NewMessages/; my @total = split / /, $_; |