summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2020-06-25 15:49:52 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2020-06-25 16:09:48 +0200
commitc46f1d05459a6b37b4079115eaa412cf2ced07c9 (patch)
tree59d8e3a124888d8013fa47d47c16ac80ad56e8e4 /urpm
parentf5da649fe4b61c8fde4829038367c4d127d19ef0 (diff)
downloadurpmi-c46f1d05459a6b37b4079115eaa412cf2ced07c9.tar
urpmi-c46f1d05459a6b37b4079115eaa412cf2ced07c9.tar.gz
urpmi-c46f1d05459a6b37b4079115eaa412cf2ced07c9.tar.bz2
urpmi-c46f1d05459a6b37b4079115eaa412cf2ced07c9.tar.xz
urpmi-c46f1d05459a6b37b4079115eaa412cf2ced07c9.zip
Make it work with no feature qw(indirect) (aka perl7)
Diffstat (limited to 'urpm')
-rw-r--r--urpm/download.pm2
-rw-r--r--urpm/xml_info.pm2
2 files changed, 2 insertions, 2 deletions
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 <media_info> tag not found\n";