[xacobeo] 04/07: Add patch to fix syntax errors with perl 5.18.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository xacobeo.

commit 6d356e10eb54a68bcb89dd461deec994fa219341
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon Aug 26 00:13:54 2013 +0200

    Add patch to fix syntax errors with perl 5.18.
    
    Closes: #720869
---
 debian/patches/qw-list.patch |   42 ++++++++++++++++++++++++++++++++++++++++++
 debian/patches/series        |    1 +
 2 files changed, 43 insertions(+)

diff --git a/debian/patches/qw-list.patch b/debian/patches/qw-list.patch
new file mode 100644
index 0000000..90ffda6
--- /dev/null
+++ b/debian/patches/qw-list.patch
@@ -0,0 +1,42 @@
+Description: qw(...) can no longer be used as parentheses in Perl 5.18
+ http://search.cpan.org/dist/perl-5.18.0/pod/perldelta.pod#qw%28...%29_can_no_longer_be_used_as_parentheses
+Origin: vendor
+Bug-Debian: http://bugs.debian.org/720869
+Bug: https://rt.cpan.org/Ticket/Display.html?id=88132
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=88132
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-08-26
+
+--- a/inc/MyBuilder.pm
++++ b/inc/MyBuilder.pm
+@@ -8,7 +8,7 @@
+ 
+ BEGIN {
+ 
+-	foreach my $module qw(ExtUtils::Depends ExtUtils::PkgConfig ExtUtils::ParseXS) {
++	foreach my $module (qw(ExtUtils::Depends ExtUtils::PkgConfig ExtUtils::ParseXS)) {
+ 		eval "use $module";
+ 		if (my $error = $@) {
+ 			warn "Missing build dependency $module.";
+--- a/lib/Xacobeo/UI/SourceView.pm
++++ b/lib/Xacobeo/UI/SourceView.pm
+@@ -317,7 +317,7 @@
+ 	);
+ 
+ 	# Make the boolean and number look a like
+-	foreach my $name qw(boolean number) {
++	foreach my $name (qw(boolean number)) {
+ 		_add_tag($tag_table, $name =>
+ 			family     => 'Courier 10 Pitch',
+ 			foreground => 'black',
+--- a/lib/Xacobeo/UI/DomView.pm
++++ b/lib/Xacobeo/UI/DomView.pm
+@@ -236,7 +236,7 @@
+ 	my $node = $self->get_selected_node or return;
+ 	my $xpath = Xacobeo::XS->get_node_path($node, $self->namespaces);
+ 
+-	foreach my $selection qw(SELECTION_CLIPBOARD SELECTION_PRIMARY) {
++	foreach my $selection (qw(SELECTION_CLIPBOARD SELECTION_PRIMARY)) {
+ 		my $clipboard = Gtk2::Clipboard->get(Gtk2::Gdk->$selection);
+ 		$clipboard->set_text($xpath);
+ 	}
diff --git a/debian/patches/series b/debian/patches/series
index 5a0a9b9..3ad60cf 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 pod-fixes
 desktop-keywords.patch
+qw-list.patch

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