From 7df63d97d2b58f83e0607cbb2c4871d0e58174f2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 19 Apr 2000 14:51:35 +0000 Subject: no_comment --- perl-install/pkgs.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 19c60f0ed..4744e924c 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -943,7 +943,7 @@ sub install($$$;$$) { $error_msg and die $error_msg; } else { #- child process will run each transaction. - $SIG{SEGV} = sub { print OUTPUT "die:crashed\n"; c::_exit(0) }; + $SIG{SEGV} = sub { log::l("segmentation fault on transactions"); c::_exit(0) }; eval { close INPUT; select((select(OUTPUT), $| = 1)[0]); -- cgit v1.2.1