summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-24 14:50:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-24 14:50:21 +0000
commit1e2ceaf137d4d6557d153fc02b8a5f00fcce6932 (patch)
treec3a5f8b395cad04133cebc41871fda36d69717e4 /perl-install
parent244684f5c8cc958244216a5282b16e1a2e3da0af (diff)
downloaddrakx-1e2ceaf137d4d6557d153fc02b8a5f00fcce6932.tar
drakx-1e2ceaf137d4d6557d153fc02b8a5f00fcce6932.tar.gz
drakx-1e2ceaf137d4d6557d153fc02b8a5f00fcce6932.tar.bz2
drakx-1e2ceaf137d4d6557d153fc02b8a5f00fcce6932.tar.xz
drakx-1e2ceaf137d4d6557d153fc02b8a5f00fcce6932.zip
(copy_advertising): fix escaping $f causing perl to segfault :-(
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index fce228234..210baffa4 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -788,6 +788,7 @@ sub copy_advertising {
return if $::rootwidth < 800;
+ my $f;
my $source_dir = "Mandrake/share/advertising";
foreach ("." . $o->{lang}, "." . substr($o->{lang},0,2), '') {
$f = getFile("$source_dir$_/list") or next;