From 9d2f74d9efc493079e7db4eb62eff738e52f5140 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau 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(-) 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