[libical-parser-html-perl] 01/04: patch missing ()s around qw() which is not allowes with perl 5.18

[Damyan Ivanov]

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

dmn pushed a commit to branch master
in repository libical-parser-html-perl.

commit 8e35f176ddf9cac7d384e30b4f9a5ffd28c690b3
Author: Damyan Ivanov <dmn at debian.org>
Date:   Fri Mar 7 12:52:45 2014 +0000

    patch missing ()s around qw() which is not allowes with perl 5.18
---
 debian/patches/perl5.18.patch | 45 +++++++++++++++++++++++++++++++++++++++++++
 debian/patches/series         |  1 +
 2 files changed, 46 insertions(+)

diff --git a/debian/patches/perl5.18.patch b/debian/patches/perl5.18.patch
new file mode 100644
index 0000000..60ab095
--- /dev/null
+++ b/debian/patches/perl5.18.patch
@@ -0,0 +1,45 @@
+Description: add missing ()s around qw() in foreach
+ Otherwise we get synax errors with perl 5.18
+Author: Damyan Ivanov <dmn at debian.org>
+Forwarded: no
+
+--- a/lib/iCal/Parser/HTML.pm
++++ b/lib/iCal/Parser/HTML.pm
+@@ -61,7 +61,7 @@ sub parse_partial_datetime {
+ sub sheet_args {
+     my($self,$date,$url)=@_;
+     my %args;
+-    foreach my $t qw(week month year) {
++    foreach my $t ( qw(week month year) ) {
+ 		$args{$t}=$date->$t();
+     }
+     $args{date}='"'.$date->ymd .'"';
+--- a/t/01parse.t
++++ b/t/01parse.t
+@@ -13,7 +13,7 @@ plan tests => (scalar keys %testmap) * 4
+ my $caldir='t/calendars';
+ 
+ while(my($f,$d)=each %testmap) {
+-    foreach my $type qw(day week month year) {
++    foreach my $type ( qw(day week month year) ) {
+ 	my $got=$parser->parse(type=>$type,start=>$d,url=>"$f?",
+ 					 files=>["$caldir/$f"]);
+ 	$got=~s/today//g;
+@@ -24,7 +24,7 @@ while(my($f,$d)=each %testmap) {
+     }
+ }
+ #multiple calendar input
+-foreach my $type qw(day week month year) {
++foreach my $type ( qw(day week month year) ) {
+     my $got=$parser
+     ->parse(type=>$type,start=>'2004-11-12',url=>'multical?',
+ 	    files=>[map {"t/calendars/$_"} keys %testmap]);
+@@ -35,7 +35,7 @@ foreach my $type qw(day week month year)
+     is($got,$expect,"multical -> $type");
+ }
+ #no link output
+-foreach my $type qw(day week month) {
++foreach my $type ( qw(day week month) ) {
+     my $got=$parser
+     ->parse(type=>$type,start=>'2004-11-12',
+ 	    files=>[map {"t/calendars/$_"} keys %testmap]);
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..557ef5f
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+perl5.18.patch

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