diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-06-25 15:49:52 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-06-25 16:09:48 +0200 |
| commit | c46f1d05459a6b37b4079115eaa412cf2ced07c9 (patch) | |
| tree | 59d8e3a124888d8013fa47d47c16ac80ad56e8e4 /urpm/xml_info.pm | |
| parent | f5da649fe4b61c8fde4829038367c4d127d19ef0 (diff) | |
| download | urpmi-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/xml_info.pm')
| -rw-r--r-- | urpm/xml_info.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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"; |