diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-24 14:50:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-24 14:50:21 +0000 |
| commit | 1e2ceaf137d4d6557d153fc02b8a5f00fcce6932 (patch) | |
| tree | c3a5f8b395cad04133cebc41871fda36d69717e4 /perl-install | |
| parent | 244684f5c8cc958244216a5282b16e1a2e3da0af (diff) | |
| download | drakx-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.pm | 1 |
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; |