何々 has an invalid attribute name…の対応

概要

perlネタです。HTML::TreeBuilderやHTML::TreeBuilder::Xpathを利用していて時々”何とか has an invalid attribute name 何とか”というエラーが頻発していました。これを何とかしようというお話です。

解決策

ググってみるとwww.perlmonks.orgのフォーラムで対応策が出ておりました。以下にHTML::Elementのパッチを置いておきます。

--- Element.pm.old	2021-07-11 16:47:15.332809446 +0900
+++ Element.pm	2021-07-11 16:39:30.717873080 +0900
@@ -2775,7 +2775,7 @@
     my $attr = shift
         or Carp::croak("sub valid_name requires an attribute name");
 
-    return (0) unless ( $attr =~ /^$START_CHAR$NAME_CHAR+$/ );
+    return (0) unless ( $attr =~ /^$START_CHAR$NAME_CHAR*$/ );
 
     return (1);
 }

今の所パッチ後では問題発生していません。