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
---
 NEWS            | 3 +++
 rpm-find-leaves | 3 ++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index a66558ef..5a7b8439 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+- urpmi_rpm-find-leaves
+  o fix running with perl-5.26 (mga#23172)
+
 Version 8.111 - 19 September 2017
 
 - gurpmi:
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