Doc system: Check for asciidoc only when needed

diff --git a/ucw/perl/UCW/Configure/Doc.pm b/ucw/perl/UCW/Configure/Doc.pm
index e15e4eddf8181843c92559de3fbe67a70bca5e02..24e771d053306170d5f792ee60f4d0ee07fa1cf3 100644 (file)
--- a/ucw/perl/UCW/Configure/Doc.pm
+++ b/ucw/perl/UCW/Configure/Doc.pm
@@ -7,19 +7,25 @@ use UCW::Configure;
 use strict;
 use warnings;
 
-Test("ASCII_DOC", "Checking for AsciiDoc", sub {
-       my $version = `asciidoc --version`;
-       return "none" if !defined $version || $version eq "";
-       my( $vnum ) = $version =~ / (\d+)\.\S*$/;
-       return "old" if $vnum < 7;
-       return "yes";
-});
+if (!IsGiven("CONFIG_DOC") || IsSet("CONFIG_DOC")) {
+       Test("HAVE_ASCII_DOC", "Checking for AsciiDoc", sub {
+               my $version = `asciidoc --version`;
+               return "none" if !defined $version || $version eq "";
+               my( $vnum ) = $version =~ / (\d+\.\S*)$/;
+               return $vnum;
+       });
 
-if(Get("ASCII_DOC") eq "yes") {
-       Set("CONFIG_DOC");
-} else {
-       Warn("Need asciidoc >= 7 to build documentation");
-       UnSet("CONFIG_DOC");
+       my( $major ) = Get("HAVE_ASCII_DOC") =~ /^(\d+)/;
+       if (defined $major && $major >= 7) {
+               Set("CONFIG_DOC");
+       } else {
+               if (IsGiven("CONFIG_DOC")) {
+                       Fail("Need asciidoc >= 7");
+               } else {
+                       Warn("Need asciidoc >= 7 to build documentation");
+                       UnSet("CONFIG_DOC");
+               }
+       }
 }
 
 # We succeeded