- urpmf:

  o add special code for --files simple case, it makes urpmf 3x faster for
    this often used case

2 files changed, 10 insertions, 3 deletions

diff --git a/urpm/args.pm b/urpm/args.pm
index 42422de8..14cfe887 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -213,6 +213,7 @@ my %options_spec = (
 		if ($::literal) {
 		    $p = quotemeta $p;
 		} else {
+		    push @::raw_non_literals, $p;
 		    # quote "+" chars for packages with + in their names
 		    $p =~ s/\+/\\+/g;
 		}
diff --git a/urpm/xml_info.pm b/urpm/xml_info.pm
index 24d1d101..bd3bed4e 100644
--- a/urpm/xml_info.pm
+++ b/urpm/xml_info.pm
@@ -19,13 +19,19 @@ sub do_something_with_nodes {
 }
 
 
-################################################################################
-sub _open_xml_reader {
+sub open_lzma {
     my ($xml_info_file) = @_;
 
     $xml_info_file =~ s/'/\'/g;
     open(my $F, "lzma -dc '$xml_info_file' |");
-    my $reader = new XML::LibXML::Reader(IO => $F) or die "cannot read $xml_info_file\n";
+    $F;    
+}
+
+################################################################################
+sub _open_xml_reader {
+    my ($xml_info_file) = @_;
+
+    my $reader = new XML::LibXML::Reader(IO => open_lzma($xml_info_file)) or die "cannot read $xml_info_file\n";
 
     $reader->read;
     $reader->name eq 'media_info' or die "global <media_info> tag not found\n";