Changeset 1141

Timestamp:

09/18/12 07:59:33 (12 years ago)

Author:

nanardon

Message:

trap perl messages in la-sync-manager

File:

• trunk/LATMOS-Accounts/bin/la-sync-manager (modified) (1 diff)

trunk/LATMOS-Accounts/bin/la-sync-manager

@@ -67 +67 @@
 );
 
+# Trap perl message, send it to log
+$SIG{__DIE__} = sub {
+    la_log LA_ERR, "DIE: %s", $_[0];
+    die $_[0];
+};
+$SIG{__WARN__} = sub {
+    la_log LA_ERR, "DIE: %s", $_[0];
+    warn $_[0];
+};
 
 {