Better error trapping in postinstalls

This commit is contained in:
Jamie Cameron
2010-12-01 08:25:34 -08:00
parent 55e0b133b3
commit 725166f7ed
2 changed files with 8 additions and 0 deletions

View File

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

View File

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