1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
use Test::More tests => 2;
# See:
# https://rt.cpan.org/Ticket/Display.html?id=71345
{
use strict;
use warnings;
use XML::LibXSLT;
use XML::LibXML;
my $xslt = XML::LibXSLT->new();
my $ext_uri = "urn:local";
my @keep;
XML::LibXSLT->register_function($ext_uri, "uc", sub { push @keep, @_; return uc shift; } );
my $stylesheet = $xslt->parse_stylesheet(XML::LibXML->load_xml(string => <<'EOF'));
<xsl:stylesheet version="1.0"
extension-element-prefixes="exsl local"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:exsl="http://exslt.org/common"
xmlns:local="urn:local">
<xsl:template match="/">
<xsl:variable name="foo"><foo a="foo"/></xsl:variable>
<bar><xsl:value-of select="local:uc(exsl:node-set($foo)//@a)"/></bar>
</xsl:template>
</xsl:stylesheet>
EOF
my $input = XML::LibXML->load_xml(string => "<input/>");
# TEST
like ($stylesheet->transform($input)->toString,
qr{\Q<bar>FOO</bar>\E},
'transformation works.',
);
# Next line crashes Perl
@keep = undef;
}
# TEST
ok(1, 'Did not crash.');
|
