From 78a15e1216831cb11199bd96d5b5416a5bb82794 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 13 Aug 2016 01:57:06 +0200
Subject: one last perl_checker cleanup

---
 sbin/chksession | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sbin/chksession b/sbin/chksession
index baecddc..a4b8d71 100755
--- a/sbin/chksession
+++ b/sbin/chksession
@@ -49,7 +49,7 @@ usage(1)
   if @ARGV < 1;
 
 while ($ARGV[0] =~ /^--/ || $ARGV[0] =~ /^-/) {
-  $_ = shift;
+  local $_ = shift;
   if (/^--first/ || /^-F/) {
     $first++;
   } elsif (/^--list/ || /^-l/) {
-- 
cgit v1.2.1