From 1e2ceaf137d4d6557d153fc02b8a5f00fcce6932 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 24 Mar 2001 14:50:21 +0000
Subject: (copy_advertising): fix escaping $f causing perl to segfault :-(

---
 perl-install/install_any.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/install_any.pm')

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;
-- 
cgit v1.2.1