From c46f1d05459a6b37b4079115eaa412cf2ced07c9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 25 Jun 2020 15:49:52 +0200 Subject: Make it work with no feature qw(indirect) (aka perl7) --- Changes | 1 + urpm/download.pm | 2 +- urpm/xml_info.pm | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 922cbc2b..24e26237 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,4 @@ +- Make it work with no feature qw(indirect) (aka perl7) - small Kwalitee cleanups - stop truncating disk names when prompting for a CD/USB key - cpan_testers: diff --git a/urpm/download.pm b/urpm/download.pm index a77848ca..b1ea6454 100644 --- a/urpm/download.pm +++ b/urpm/download.pm @@ -197,7 +197,7 @@ sub get_proxy (;$) { our $PROMPT_PROXY; unless (defined $PROMPT_PROXY) { require urpm::prompt; - $PROMPT_PROXY = new urpm::prompt( + $PROMPT_PROXY = urpm::prompt->new( N("Please enter your credentials for accessing proxy\n"), [ N("User name:"), N("Password:") ], undef, diff --git a/urpm/xml_info.pm b/urpm/xml_info.pm index a2a55be0..48368c47 100644 --- a/urpm/xml_info.pm +++ b/urpm/xml_info.pm @@ -44,7 +44,7 @@ sub open_lzma { sub _open_xml_reader { my ($xml_info_file) = @_; - my $reader = new XML::LibXML::Reader(IO => open_lzma($xml_info_file), huge => 1) or die "cannot read $xml_info_file\n"; + my $reader = XML::LibXML::Reader->new(IO => open_lzma($xml_info_file), huge => 1) or die "cannot read $xml_info_file\n"; $reader->read; $reader->name eq 'media_info' or die "global tag not found\n"; -- cgit v1.2.1