diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2018-06-13 17:59:47 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2018-06-13 18:02:03 +0200 |
| commit | 14e6a0510d7e93cafc724edfbab28910d0ee7ebe (patch) | |
| tree | f6e22483c4de08c0324235a332f67d3a4aaf88dc /rpm-find-leaves | |
| parent | 366559978df05dc00f4b1a6613f4bcf8c33cfed9 (diff) | |
| download | urpmi-14e6a0510d7e93cafc724edfbab28910d0ee7ebe.tar urpmi-14e6a0510d7e93cafc724edfbab28910d0ee7ebe.tar.gz urpmi-14e6a0510d7e93cafc724edfbab28910d0ee7ebe.tar.bz2 urpmi-14e6a0510d7e93cafc724edfbab28910d0ee7ebe.tar.xz urpmi-14e6a0510d7e93cafc724edfbab28910d0ee7ebe.zip | |
fix running with perl-5.26 (mga#23172)
commit 6aaf7d1e438b9820164b94d3b548a858bb6abf68 was working smoothly 6
years ago but no more with perl-5.26
Diffstat (limited to 'rpm-find-leaves')
| -rw-r--r-- | rpm-find-leaves | 3 |
1 files changed, 2 insertions, 1 deletions
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); |