[SCM] librdf-ns-perl Debian packaging branch, master, updated. debian/20130208-1-22-g47de138

[Jakob Voss]

The following commit has been merged in the master branch:
commit 195a96d2d0e75ab284c232dd2ddcad0ff673b377
Author: Jakob Voss <voss at gbv.de>
Date:   Tue Apr 2 09:26:34 2013 +0200

    avoid iterating over all prefixes

diff --git a/lib/RDF/NS.pm b/lib/RDF/NS.pm
index 83cb4b6..8e53223 100644
--- a/lib/RDF/NS.pm
+++ b/lib/RDF/NS.pm
@@ -77,11 +77,10 @@ sub FORMAT {
 
 sub PREFIX {
 	my ($self, $uri) = @_;
-        my $retprefix;
-	while ( my ($prefix, $namespace) = each %$self ) {
-		$retprefix = $prefix if $uri eq $namespace;
+	foreach my $prefix ( keys %$self ) {
+        return $prefix if $uri eq $self->{$prefix};
 	}
-	return $retprefix;
+	return undef;
 }
 
 sub PREFIXES {
diff --git a/t/prefix.t b/t/prefix.t
index 5eb693e..da1cffc 100644
--- a/t/prefix.t
+++ b/t/prefix.t
@@ -11,10 +11,7 @@ my $ns = RDF::NS->new('20111028');
 
 is $ns->PREFIX('http://www.w3.org/1999/02/22-rdf-syntax-ns#'), 'rdf', 'PREFIX';
 
-my @nslist = $ns->PREFIXES($dc);
-ok ((grep { $_ eq 'dc' } @nslist), 'PREFIXES has dc');
-ok ((grep { $_ eq 'dc11' } @nslist), 'PREFIXES has dc11');
-is @nslist, 2, 'PREFIXES returns two';
+is_deeply [ sort $ns->PREFIXES($dc) ], [qw(dc dc11)], 'PREFIXES has dc, dc11';
 
 my $rev = $ns->REVERSE;
 

-- 
librdf-ns-perl Debian packaging