Configure: Added a mechanism for registering post-config hooks.

diff --git a/ucw/perl/UCW/Configure.pm b/ucw/perl/UCW/Configure.pm
index 6fb84a19f0423dbca95e7120d96490a667b70e6e..2657a6309e2a152493567e216c6c41895f62ea3c 100644 (file)
--- a/ucw/perl/UCW/Configure.pm
+++ b/ucw/perl/UCW/Configure.pm
@@ -23,6 +23,7 @@ BEGIN {
 
 our %vars;
 our %overriden;
+our @postconfigs;
 
 sub debPrint() {
   print "VARS:\n";
@@ -157,7 +158,15 @@ sub Include($) {
        require $f;
 }
 
+sub PostConfig(&) {
+       unshift @postconfigs, $_[0];
+}
+
 sub Finish() {
+       for my $post (@postconfigs) {
+               &$post();
+       }
+
        print "\n";
 
        if (Get("SRCDIR") ne ".") {