From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 19 Nov 2013 11:38:44 +0000 (+0100)
Subject: eg/plpinfo: add missing parentheses for perl v5.18
X-Git-Tag: 3.24~3
X-Git-Url: http://git.shiar.nl/perl/plp/.git/commitdiff_plain/9f59e7b75435e82578bc66328032e0d3510c5690

eg/plpinfo: add missing parentheses for perl v5.18

Lax grammar no longer allowed, see perl5180delta.
---

diff --git a/eg/plpinfo.plp b/eg/plpinfo.plp
index 9b3b704..f25dc76 100644
--- a/eg/plpinfo.plp
+++ b/eg/plpinfo.plp
@@ -66,7 +66,7 @@ printf("<tr><th>%s</th><td>%s</td></tr>\n",
 
 <table border="1">
 <:
-for my $var qw(get post cookies header) {
+for my $var (qw[ get post cookies header ]) {
 	printf("<tr><th>%s{'%s'}</th><td>%s</td></tr>\n",
 		$var, $_, defined $$var{$_} ? $$var{$_} : "<i>no value</i>"
 	) for sort keys %$var;