[librdf-rdfa-generator-perl] 34/64: Prevent XML::LibXML::Element::setAttribute complaining about uninitialized value

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag debian/0.106-1
in repository librdf-rdfa-generator-perl.

commit c52127a40abb70101dab70cff3d03cd58e5639ee
Author: Varadinsky <varadinsky at yahoo.com>
Date:   Wed Oct 19 13:48:07 2016 +0200

    Prevent XML::LibXML::Element::setAttribute complaining about uninitialized value
---
 lib/RDF/RDFa/Generator/HTML/Pretty.pm |  2 +-
 t/uninit_lang_warning.t               | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+), 1 deletion(-)

diff --git a/lib/RDF/RDFa/Generator/HTML/Pretty.pm b/lib/RDF/RDFa/Generator/HTML/Pretty.pm
index 25764ab..66d8606 100644
--- a/lib/RDF/RDFa/Generator/HTML/Pretty.pm
+++ b/lib/RDF/RDFa/Generator/HTML/Pretty.pm
@@ -212,7 +212,7 @@ sub _resource_statements
 		{
 			$DD->setAttribute('property',  $self->_make_curie($st->predicate->uri, $prefixes));
 			$DD->setAttribute('class', 'plain-literal');
-			$DD->setAttribute('xml:lang',  $st->object->literal_value_language);
+			$DD->setAttribute('xml:lang',  ''.$st->object->literal_value_language);
 			$DD->appendTextNode(encode_utf8($st->object->literal_value));
 		}
 		elsif ($self->{'safe_xml_literals'}
diff --git a/t/uninit_lang_warning.t b/t/uninit_lang_warning.t
new file mode 100644
index 0000000..a8c79b0
--- /dev/null
+++ b/t/uninit_lang_warning.t
@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Output;
+
+use RDF::Trine qw(blank iri literal);
+use RDF::RDFa::Generator;
+
+my $t = RDF::Trine::Statement::Quad->new(
+	blank('x'),
+	iri('http://example.org/p'),
+	literal(3),
+	iri('http://example.org/graph1'),
+);
+
+my $model = RDF::Trine::Model->new(); 
+$model->add_statement($t);
+
+my $pretty = RDF::RDFa::Generator::HTML::Pretty->new();
+
+stderr_unlike sub {
+	print $pretty->create_document($model);
+}, qr/Use of uninitialized value in subroutine entry/, 'pretty - no uninitalized value warning ok';
+
+my $head = RDF::RDFa::Generator::HTML::Head->new();
+
+stderr_unlike sub {
+	print $head->create_document($model);
+}, qr/Use of uninitialized value in subroutine entry/, 'head - no uninitalized value warning ok';
+
+done_testing();

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/librdf-rdfa-generator-perl.git