From ba2e9575a26cb1c9a81ef5d1303422f862d5e019 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 10 Aug 2003 23:53:18 +0000
Subject: use $::prefix instead of passing $prefix to functions

---
 perl-install/install_any.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index d5154f17a..e9bb89d04 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -985,10 +985,9 @@ sub remove_advertising {
     @advertising_images = ();
 }
 
-sub disable_user_view {
-    my ($prefix) = @_;
-    substInFile { s/^UserView=.*/UserView=true/ } "$prefix/usr/share/config/kdm/kdmrc";
-    substInFile { s/^Browser=.*/Browser=0/ } "$prefix/etc/X11/gdm/gdm.conf";
+sub disable_user_view() {
+    substInFile { s/^UserView=.*/UserView=true/ } "$::prefix/usr/share/config/kdm/kdmrc";
+    substInFile { s/^Browser=.*/Browser=0/ } "$::prefix/etc/X11/gdm/gdm.conf";
 }
 
 sub set_security {
-- 
cgit v1.2.1