[SCM] librdf-helper-perl Debian packaging branch, master, updated. debian/2.0-1-6-gbd865d7

[gregor herrmann]

The following commit has been merged in the master branch:
commit bd865d723af764f1aeca83277124f02965fe5c78
Author: gregor herrmann <gregoa at debian.org>
Date:   Wed Jun 5 18:47:38 2013 +0200

    Add a patch to fix the usage of qw() in list context.
    
    Addresses: #710983

diff --git a/debian/patches/qw-list.patch b/debian/patches/qw-list.patch
new file mode 100644
index 0000000..6bd5662
--- /dev/null
+++ b/debian/patches/qw-list.patch
@@ -0,0 +1,67 @@
+Description: usage of qw() in list context is an error now
+Origin: vendor, CPAN RT
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=72636
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=72636
+Bug-Debian: http://bugs.debian.org/710983
+Author: unixprog [...] gmail.com
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-06-05
+
+--- a/lib/RDF/Helper/RDFTrine.pm
++++ b/lib/RDF/Helper/RDFTrine.pm
+@@ -122,7 +122,7 @@
+     my $statement = shift;
+ 
+     my @nodes = ();
+-    foreach my $type qw( subject predicate object ) {
++    foreach my $type (qw( subject predicate object )) {
+         push @nodes, $self->helper2native( $statement->$type );
+     }
+     $self->model->add_statement( RDF::Trine::Statement->new(@nodes) );
+@@ -136,7 +136,7 @@
+     my $e = $self->get_enumerator(@_);
+     while ( my $s = $e->next ) {
+         my @nodes = ();
+-        foreach my $type qw( subject predicate object ) {
++        foreach my $type (qw( subject predicate object )) {
+             push @nodes, $self->helper2native( $s->$type );
+         }
+ 
+@@ -284,7 +284,7 @@
+ 
+     my $s     = undef;
+     my @nodes = ();
+-    foreach my $type qw( subject predicate object ) {
++    foreach my $type (qw( subject predicate object )) {
+         push @nodes, process_node( $in->$type );
+     }
+     return RDF::Helper::Statement->new(@nodes);
+--- a/lib/RDF/Helper/RDFRedland.pm
++++ b/lib/RDF/Helper/RDFRedland.pm
+@@ -130,7 +130,7 @@
+     my $statement = shift;
+ 
+     my @nodes = ();
+-    foreach my $type qw( subject predicate object ) {
++    foreach my $type (qw( subject predicate object )) {
+         push @nodes, $self->helper2native( $statement->$type );
+     }
+ 
+@@ -145,7 +145,7 @@
+     my $e = $self->get_enumerator(@_);
+     while ( my $s = $e->next ) {
+         my @nodes = ();
+-        foreach my $type qw( subject predicate object ) {
++        foreach my $type (qw( subject predicate object )) {
+             push @nodes, $self->helper2native( $s->$type );
+         }
+ 
+@@ -325,7 +325,7 @@
+ 
+     my $s     = undef;
+     my @nodes = ();
+-    foreach my $type qw( subject predicate object ) {
++    foreach my $type (qw( subject predicate object )) {
+         push @nodes, process_node( $in->$type );
+     }
+     return RDF::Helper::Statement->new(@nodes);
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..c419c74
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+qw-list.patch

-- 
librdf-helper-perl Debian packaging