[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 5936902f5304e720e2b9c15bb169e402724a2186
Author: Andreas Koenig <andk at cpan.org>
Date:   Sun Mar 31 14:27:13 2013 +0200

    do not return out of an while-each loop

diff --git a/lib/RDF/NS.pm b/lib/RDF/NS.pm
index 4f6fb0a..83cb4b6 100644
--- a/lib/RDF/NS.pm
+++ b/lib/RDF/NS.pm
@@ -77,10 +77,11 @@ sub FORMAT {
 
 sub PREFIX {
 	my ($self, $uri) = @_;
+        my $retprefix;
 	while ( my ($prefix, $namespace) = each %$self ) {
-		return $prefix if $uri eq $namespace;
+		$retprefix = $prefix if $uri eq $namespace;
 	}
-	undef;
+	return $retprefix;
 }
 
 sub PREFIXES {

-- 
librdf-ns-perl Debian packaging