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/seti.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'scripts/seti.pl')

diff --git a/scripts/seti.pl b/scripts/seti.pl
index 01678ac..cb0f489 100644
--- a/scripts/seti.pl
+++ b/scripts/seti.pl
@@ -1,5 +1,5 @@
 # This is not a well written script, but it works. I hope.
-
+use strict;
 use Irssi;
 use vars qw($VERSION %IRSSI);
 
@@ -18,18 +18,18 @@ $VERSION = '0.1';
 
 sub seti_info {
 
-  $WHERES_SETI_STATE_SAH = Irssi::settings_get_str('seti_state_sah');
+  my $WHERES_SETI_STATE_SAH = Irssi::settings_get_str('seti_state_sah');
 
   my ($data, $server, $witem) = @_;
-  $args =~ s/\s+$//; 
 
-  open(INFO, "$WHERES_SETI_STATE_SAH");
-  for($tmp = 0; $tmp < 5; $tmp++) {
+  my $line;
+  open(INFO, "<", $WHERES_SETI_STATE_SAH);
+  for(my $tmp = 0; $tmp < 5; $tmp++) {
     $line = <INFO>;
   }
   close(INFO);
-  $proc = substr($line, 7, 4)/100;
-  my $output = "progress of this SETI@home workunit: $proc%";
+  my $proc = substr($line, 7, 4)/100;
+  my $output = "progress of this SETI\@home workunit: $proc%";
 
   if($data)
   {
-- 
cgit v1.2.3