Allow -RCX in document's version number

The document directories are still w/o -RCX, to avoid
spamming the webserver.

diff --git a/script/gen b/script/gen
index 559619989388664e9a587890bd9a369d41a245a9..b794df67bd48addb8420e2be80ad61ca07698e84 100755 (executable)
--- a/script/gen
+++ b/script/gen
@@ -134,8 +134,17 @@ sub do_doc {
     my $xml = XML::LibXML->new()->parse_file($xml_path) or die $!;
 
     ## Get the version number
     my $xml = XML::LibXML->new()->parse_file($xml_path) or die $!;
 
     ## Get the version number

-    my $version = $xml->findvalue('/book/bookinfo/revhistory/revision/revnumber');
-    die "Unable to get version number\n" unless defined $version && $version =~ /^\d+(\.\d+)*$/;
+    my $version = do {
+       my $version = $xml->findvalue('/book/bookinfo/revhistory/revision/revnumber');
+       die "Unable to get version number\n"
+           unless defined $version and $version =~ /^
+               (?<version>
+                   \d+                     # major
+                   (?:\.\d+(?:\.\d+)?)?    # (minor(.patch))
+               )
+               (?:-RC\d+)?$/x;             # -RCX
+       $+{version};
+    };

 
     ## Prepend chapter filenames?
     my $prepend_chapter = $type eq 'filter' ? 'filter_' : '';
 
     ## Prepend chapter filenames?
     my $prepend_chapter = $type eq 'filter' ? 'filter_' : '';