From 14e6a0510d7e93cafc724edfbab28910d0ee7ebe Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 13 Jun 2018 17:59:47 +0200
Subject: fix running with perl-5.26 (mga#23172)

commit 6aaf7d1e438b9820164b94d3b548a858bb6abf68 was working smoothly 6
years ago but no more with perl-5.26
---
 rpm-find-leaves | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'rpm-find-leaves')

diff --git a/rpm-find-leaves b/rpm-find-leaves
index 87aabdbb..7d4adc37 100644
--- a/rpm-find-leaves
+++ b/rpm-find-leaves
@@ -23,7 +23,8 @@ where [options] are from
 
 my $urpm = urpm->new;
 
-while (my $_ = shift) {
+local $_;
+while ($_ = shift) {
     $_ eq '--root' and do {
 	my $root = shift;
 	$root and urpm::set_files($urpm, $root);
-- 
cgit v1.2.1