Handle hostnames with upper-case letters

[webmin.git] / run-uninstalls.pl

diff --git a/run-uninstalls.pl b/run-uninstalls.pl
index 7165c18..3dd6e11 100755 (executable)
--- a/run-uninstalls.pl
+++ b/run-uninstalls.pl
@@ -3,7 +3,7 @@
 # Run all the uninstall.pl scripts in module directories
 
 $no_acl_check++;
-do './web-lib.pl';
+use WebminCore;
 &init_config();
 
 if (@ARGV > 0) {
@@ -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";
+                       }
                }
        }