(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)

1 files changed, 1 insertions, 1 deletions

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;    
 }