Subject: | document('') |
perl 5.005_03 (SunOS 5.8), as perl 5.6 (SuSe Linux 8.0)
Combination of:
libxslt version 1.019
libxml2 2.2.4.23
XML::LibXSLT 1.49,1.50
N.B.: xsltproc works fine always, though.
t/07blankdoc....FAILED before any test output arrived
attached file perl fails too
'make' yields some error messages, too, e.g.
ld: warning: file /opt/gnu/lib/libxslt.so: section .stabstr: malformed string table, initial or final byte
but those messages seem to be ok, as
Combination of:
libxslt version 1.017
libxml2 2.2.4.21
XML::LibXSLT 1.49
perl works with those messages:
perl-libxml-mm.c: In function `PmmNodeToSv':
perl-libxml-mm.c:291: warning: passing arg 2 of `Perl_sv_setref_pv' discards qualifiers from pointer target type
perl-libxml-mm.c: In function `PmmContextSv':
perl-libxml-mm.c:476: warning: passing arg 2 of `Perl_sv_setref_pv' discards qualifiers from pointer target type
perl-libxml-mm.c: In function `C2Sv':
perl-libxml-mm.c:621: warning: passing arg 1 of `Perl_newSVpvn' discards qualifiers from pointer target type
perl-libxml-mm.c:630: warning: passing arg 1 of `Perl_newSVpvn' discards qualifiers from pointer target type
Running Mkbootstrap for XML::LibXSLT ()
chmod 644 LibXSLT.bs
LD_RUN_PATH="/opt/gnu/lib:/lib" gcc -B/usr/ccs/bin/ -B/usr/ccs/bin/ -o blib/arch/auto/XML/LibXSLT/LibXSLT.so -R/opt/gnu/lib -R/lib -G -L/opt/gnu/lib -R/opt/gnu/lib LibXSLT.o perl-libxml-mm.o -L/opt/gnu/lib -R/opt/gnu/lib -lxslt -lexslt -lxml2 -lsocket -lnsl -lm
ld: warning: file /opt/gnu/lib/libxslt.so: section .stabstr: malformed string table, initial or final byte
ld: warning: file /opt/gnu/lib/libexslt.so: section .stabstr: malformed string table, initial or final byte
ld: warning: file /opt/gnu/lib/libxml2.so: section .stabstr: malformed string table, initial or final byte
#!/opt/gnu/bin/perl -w
#use Test;
#BEGIN { plan tests => 5 }
use XML::LibXSLT;
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
#ok($parser); ok($xslt);
my $source = $parser->parse_string(<<'EOT');
<?xml version="1.0" encoding="ISO-8859-1"?>
<document></document>
EOT
my $style = $parser->parse_string(<<'EOT');
<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:data="data.uri" xmlns:doi="http://www.slashdot.org" version="1.0">
<xsl:output encoding="ISO-8859-1" method="text"/>
<data:type>typed data in stylesheet</data:type>
<doi:B>
<REFID KEY="2"><A HREF="javascript:reference2('10.1007/s002619900089')">CrossRef</A>
</REFID>
</doi:B>
<xsl:template match="document">
Data: <xsl:value-of select="document('')/xsl:stylesheet/data:type"/><xsl:text>
</xsl:text>
Data2: <xsl:value-of select="document('')/xsl:stylesheet/doi:B/REFID/@KEY"/><xsl:text>
</xsl:text>
</xsl:template>
</xsl:stylesheet>
EOT
#ok($style);
my $stylesheet = $xslt->parse_stylesheet($style);
my $results = $stylesheet->transform($source);
#ok($results);
#ok($results->toString =~ /typed data in stylesheet/);
print $results->toString;