Handle hostnames with upper-case letters

[webmin.git] / run-postinstalls.pl

diff --git a/run-postinstalls.pl b/run-postinstalls.pl
index bf651e1..f3aee7f 100755 (executable)
--- a/run-postinstalls.pl
+++ b/run-postinstalls.pl
@@ -5,8 +5,7 @@
 $no_acl_check++;
 use WebminCore;
 &init_config();
-&foreign_require("webmin", "webmin-lib.pl");
-@themes = &webmin::list_themes();
+@themes = &list_themes();
 
 if (@ARGV > 0) {
        # Running for specified modules
@@ -35,9 +34,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";
+                       }
                }
        }