From 8e710542767cb41984467db36145811b2032749a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 15 Sep 2003 13:56:29 +0000
Subject: better logging of killed runaway processes

---
 perl-install/run_program.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 027944d56..43b7c3d28 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -70,7 +70,7 @@ sub raw {
 		alarm 0;
 	    };
 	    if ($@) {
-		log::l("ERROR: killing runaway process");
+		log::l("ERROR: killing runaway process (process=$str, pid=$pid, args=@args, error=$@)");
 		kill 9, $pid;
 		return;
 	    }
-- 
cgit v1.2.1