From 9d2f74d9efc493079e7db4eb62eff738e52f5140 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 6 Dec 2002 18:00:21 +0000
Subject: better style

---
 perl-install/install_gtk.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 499b344cc..9342b2296 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -188,9 +188,7 @@ sub create_logo_window {
 
 #------------------------------------------------------------------------------
 sub init_gtk() {
-    symlink("/tmp/stage2/etc/gtk-2.0", "/etc/gtk-2.0");
-    symlink("/tmp/stage2/etc/pango", "/etc/pango");
-    symlink("/tmp/stage2/etc/fonts", "/etc/fonts");
+    symlink("/tmp/stage2/etc/$_", "/etc/$_") foreach qw(gtk-2.0 pango fonts);
     Gtk2->init(\@ARGV);
     Gtk2->set_locale;
 }
-- 
cgit v1.2.1