From e27d35e31f7141ea80e1375104c574cf2a13db0b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 27 Mar 2008 17:31:14 +0000
Subject: follow perl_checker advice

---
 perl-install/standalone/finish-install | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 4618ab2aa..2fa557e3f 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -122,7 +122,7 @@ sub ask_users() {
         #- replace home path in user config files
         my $old_home = "/home/$old_user";
         my $new_home = "/home/$users->[0]{name}";
-        run_program::run("grep -rl $old_home $new_home/.??* | while read f; do perl -pi -e 's,$old_home,$new_home,g' \"\$f\"; done");
+        run_program::run(qq(grep -rl $old_home $new_home/.??* | while read f; do perl -pi -e 's,$old_home,$new_home,g' "\$f"; done));
     }
 }
 
-- 
cgit v1.2.1