Handle hostnames with upper-case letters

[webmin.git] / run-uninstalls.pl

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";
+                       }
                }
        }