Error in TestXS loading

[Patrice Dumas]

Hello,

configure finds that I cannot use the XS module, I tried to reproduce
why and it seems to be an issue with the call of TestXS::init() in 
Texinfo/XSLoader.pm:

$ cd tp/Texinfo/XS
$ perl -I . -I ../../ -e 'require Texinfo::XS::TestXS;'
Usage: TestXS::init() at ../../Texinfo/XSLoader.pm line 224, <$fh> line 8.
BEGIN failed--compilation aborted at ../../Texinfo/XS/TestXS.pm line 32.
Compilation failed in require at -e line 1.

If I modify the code line 224 of Texinfo/XSLoader.pm to be 

  if (defined &{"${module}::init"}
      and !&{"${module}::init"} ()) {

instead of 
  if (defined &{"${module}::init"}
      and !&{"${module}::init"} ($Texinfo::ModulePath::texinfo_uninstalled)) {

the load and test works, I get:
$ perl -I . -I ../../ -e 'require Texinfo::XS::TestXS;'
message from XS module


If I modify instead to 
  and !&{"${module}::init"} (1)) {
I still get the same error.

-- 
Pat