(open_lzma) fix using xml info files with quotess in medium name (with

urpmf & urpmq)

introduced in r232995 by pixel on 2008-01-15
("fix using xml info files with spaces in medium name")

(cautgh by perl_checker)

2 files changed, 3 insertions, 1 deletions

diff --git a/NEWS b/NEWS
index 5496d3fc..5691343b 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- urpmf, urpmq:
+  o fix using xml info files with quotes in medium name
 - urpmi
   o do not compute orphan packages when handling priority upgrades
   o disable dudf support (we've nothing server side)
diff --git a/urpm/xml_info.pm b/urpm/xml_info.pm
index 58858491..74869957 100644
--- a/urpm/xml_info.pm
+++ b/urpm/xml_info.pm
@@ -23,7 +23,7 @@ sub do_something_with_nodes {
 sub open_lzma {
     my ($xml_info_file) = @_;
 
-    $xml_info_file =~ s/'/\'/g;
+    $xml_info_file =~ s/'/'\\''/g;
     open(my $F, "lzma -dc '$xml_info_file' |");
     $F;    
 }