Better error trapping in postinstalls

diff --git a/run-postinstalls.pl b/run-postinstalls.pl
index bf651e1..65e05f3 100755 (executable)
--- a/run-postinstalls.pl
+++ b/run-postinstalls.pl
@@ -35,9 +35,13 @@ foreach $m (@mods) {
            -r "$mdir/postinstall.pl") {
                # Call this module's postinstall function
                eval {
+                       $main::error_must_die = 1;
                        &foreign_require($m->{'dir'}, "postinstall.pl");
                        &foreign_call($m->{'dir'}, "module_install");
                        };
+               if ($@) {
+                       print STDERR "$m->{'dir'}/postinstall.pl failed : $@\n";
+                       }
                }
        }
 

diff --git a/run-uninstalls.pl b/run-uninstalls.pl
index 92853ab..3dd6e11 100755 (executable)
--- a/run-uninstalls.pl
+++ b/run-uninstalls.pl
@@ -19,9 +19,13 @@ foreach $m (@mods) {
            -r "$mdir/uninstall.pl") {
                # Call this module's uninstall function
                eval {
+                       $main::error_must_die = 1;
                        &foreign_require($m->{'dir'}, "uninstall.pl");
                        &foreign_call($m->{'dir'}, "module_uninstall");
                        };
+               if ($@) {
+                       print STDERR "$m->{'dir'}/postinstall.pl failed : $@\n";
+                       }
                }
        }