diff options
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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]); |