Fix build on Fedora 32
authorSimon Arlott <simon@arlott.org>
Tue, 2 Jun 2020 22:02:09 +0000 (23:02 +0100)
committerJeremy Harris <jgh@wizmail.org>
Tue, 2 Jun 2020 22:02:09 +0000 (23:02 +0100)
perl-XML-LibXML stopped loading HTML entities by default at 2.0202,
and f32 has v2.0205

script/gen

index 84657e7c907875b49d35e29a40f872da8e11d9dd..91af773bccc8b2c1b855284e277c9fa35a258b3a 100755 (executable)
@@ -131,7 +131,7 @@ sub do_doc {
     my ( $type, $xml_path ) = @_;
 
     ## Read and validate the XML file
     my ( $type, $xml_path ) = @_;
 
     ## Read and validate the XML file
-    my $xml = XML::LibXML->new()->parse_file($xml_path) or die $!;
+    my $xml = XML::LibXML->new(expand_entities => 1)->parse_file($xml_path) or die $!;
 
     ## Get the version number
     my $version = do {
 
     ## Get the version number
     my $version = do {
@@ -419,7 +419,7 @@ sub transform {
     $xml->documentElement()->appendTextChild( 'old_versions', $_ ) foreach old_docs_versions();
 
     ## Parse the ".xsl" file as XML
     $xml->documentElement()->appendTextChild( 'old_versions', $_ ) foreach old_docs_versions();
 
     ## Parse the ".xsl" file as XML
-    my $xsl = XML::LibXML->new()->parse_file($xsl_path) or die $!;
+    my $xsl = XML::LibXML->new(expand_entities => 1)->parse_file($xsl_path) or die $!;
 
     ## Generate a stylesheet from the ".xsl" XML.
     my $stylesheet = XML::LibXSLT->new()->parse_stylesheet($xsl);
 
     ## Generate a stylesheet from the ".xsl" XML.
     my $stylesheet = XML::LibXSLT->new()->parse_stylesheet($xsl);