This is an automated email from the git hooks/post-receive script. js pushed a commit to annotated tag debian/0.019-1 in repository libattean-perl.
commit e802dd155f2259997cd511df1dbb8de8326a90c7 Author: Kjetil Kjernsmo <kje...@kjernsmo.net> Date: Tue Jan 30 12:25:50 2018 +0100 Check for rdf:langString --- lib/Attean/Plan.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/Attean/Plan.pm b/lib/Attean/Plan.pm index 94a1865..1586ba6 100644 --- a/lib/Attean/Plan.pm +++ b/lib/Attean/Plan.pm @@ -987,7 +987,7 @@ package Attean::Plan::Extend 0.018 { } foreach my $s (@strings) { die unless ($s->does('Attean::API::Literal')); - die if ($s->datatype and not($s->datatype->value =~ m<http://www.w3.org/2001/XMLSchema#(langString|string)>)); + die if ($s->datatype and not($s->datatype->value =~ m<http://www.w3.org/(1999/02/22-rdf-syntax-ns#langString|2001/XMLSchema#string)>)); if (my $l2 = $s->language) { if (my $l1 = $args{language}) { if ($l1 ne $l2) { @@ -1030,20 +1030,20 @@ package Attean::Plan::Extend 0.018 { } elsif ($func eq 'STRLANG') { my ($term, $lang) = @terms; die unless ($term->does('Attean::API::Literal')); - die unless ($term->datatype->value =~ m<http://www.w3.org/2001/XMLSchema#(langString|string)>); + die unless ($term->datatype->value =~ m<http://www.w3.org/(1999/02/22-rdf-syntax-ns#langString|2001/XMLSchema#string)>); die if ($term->language); return Attean::Literal->new(value => $term->value, language => $lang->value); } elsif ($func eq 'STRDT') { my ($term, $dt) = @terms; die unless ($term->does('Attean::API::Literal')); - die unless ($term->datatype->value =~ m<http://www.w3.org/2001/XMLSchema#(langString|string)>); + die unless ($term->datatype->value =~ m<http://www.w3.org/(1999/02/22-rdf-syntax-ns#langString|2001/XMLSchema#string)>); die if ($term->language); # my ($term, $dt) = map { $self->evaluate_expression($model, $_, $r) } @{ $expr->children }; return Attean::Literal->new(value => $term->value, datatype => $dt->value); } elsif ($func eq 'REPLACE') { my ($term, $pat, $rep) = @terms; die unless ($term->does('Attean::API::Literal')); - die unless ($term->language or $term->datatype->value =~ m<http://www.w3.org/2001/XMLSchema#(langString|string)>); + die unless ($term->language or $term->datatype->value =~ m<http://www.w3.org/(1999/02/22-rdf-syntax-ns#langString|2001/XMLSchema#string)>); # my ($term, $pat, $rep) = map { $self->evaluate_expression($model, $_, $r) } @{ $expr->children }; my $value = $term->value; my $pattern = $pat->value; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libattean-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits