From 19c1b93b15712d5cd249e8578d6c23c7d20e6ce8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 13 Aug 2016 01:32:33 +0200
Subject: perl_checker cleanups

---
 sbin/chksession | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/sbin/chksession b/sbin/chksession
index 46a6071..fb2e099 100644
--- a/sbin/chksession
+++ b/sbin/chksession
@@ -6,7 +6,7 @@
 # Modified by Bernard Lang on August 21, 2003.
 
 
-my @lf;
+my (@lf, $dir, $first, $list, $list_order, %order, $test);
 
 sub usage {
   my $e = shift @_;
@@ -38,15 +38,15 @@ EOF
 
 sub cat {   # returns content of argument file as a single string
   my ($f) = @_;
-  local *F;
-  open F, $f or die "Can't open $f\n";
+  open my $F, $f or die "Can't open $f\n";
   local $/ = "";
-  <F>
+  <$F>;
   }
   
 sub parse_file {         # parse a session descriptor file
     my ($fn) = @_;
-     $_ = cat ($fn);
+     my $n;
+     local $_ = cat($fn);
      ($n = $1) =~ s| ||g if /^NAME=(.*)/m;
      $e = $1 if /^EXEC=(.*)/m;
      my $dn = $1 if /^DESKTOPNAMES=(.*)/m;
@@ -122,10 +122,10 @@ chdir $dir;
 for (<*>) {
     next if /.*~/;
     next if /.*\.rpm(save|old)/;
-    parse_file ("$_");
+    parse_file($_);
 }
 
-my ($e) = eval {cat("/etc/sysconfig/desktop")} =~ /DESKTOP=(\S+)/;
+my ($e) = eval { cat("/etc/sysconfig/desktop") } =~ /DESKTOP=(\S+)/;
 # The first string (without spaces) in the file is copied to $e.
 
 # If $e is one of the names in @lf, then it is placed first (leftmost).
-- 
cgit v1.2.1