diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-08-13 01:57:06 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-08-13 02:02:53 +0200 |
| commit | 78a15e1216831cb11199bd96d5b5416a5bb82794 (patch) | |
| tree | dbf206f10b9ed051028442640da37a36832c26e5 /sbin | |
| parent | be1601f0caec1326c65675247dd1744818c34d19 (diff) | |
| download | common-data-78a15e1216831cb11199bd96d5b5416a5bb82794.tar common-data-78a15e1216831cb11199bd96d5b5416a5bb82794.tar.gz common-data-78a15e1216831cb11199bd96d5b5416a5bb82794.tar.bz2 common-data-78a15e1216831cb11199bd96d5b5416a5bb82794.tar.xz common-data-78a15e1216831cb11199bd96d5b5416a5bb82794.zip | |
one last perl_checker cleanup
Diffstat (limited to 'sbin')
| -rwxr-xr-x | sbin/chksession | 2 |
1 files changed, 1 insertions, 1 deletions
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/) { |