Net::SSL catches die() and will print an untidy confess() if the signal is
received in Net::SSL::read(). exit(1) achieves the same goal without triggering
the confess().
---
v2v/virt-v2v.pl | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/v2v/virt-v2v.pl b/v2v/virt-v2v.pl
index 93bfcd5..c72647c 100755
--- a/v2v/virt-v2v.pl
+++ b/v2v/virt-v2v.pl
@@ -414,7 +414,8 @@ END {
sub signal_exit
{
$g->close() if (defined($g));
- die(user_message(__x("Received signal {sig}. Exiting.", sig =>
shift)));
+ warn user_message(__x("Received signal {sig}. Exiting.", sig =>
shift));
+ exit(1);
}
# Inspect the guest's storage. Returns an OS hashref as returned by
--
1.7.2.3