From: gregor herrmann <gregoa@debian.org>
Date: Sat, 25 May 2013 02:28:37 +0200
Subject: using qw() as parentheses is a fatal error now

Origin: vendor
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=73317
Bug-Debian: https://bugs.debian.org/709681
Forwarded: not needed
---
 lib/CGI/Application/Plugin/ViewCode.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/CGI/Application/Plugin/ViewCode.pm b/lib/CGI/Application/Plugin/ViewCode.pm
index 4bc8c04..adc4075 100644
--- a/lib/CGI/Application/Plugin/ViewCode.pm
+++ b/lib/CGI/Application/Plugin/ViewCode.pm
@@ -176,7 +176,7 @@ sub _view_code {
     my $query = $self->query;
 
     my %options;
-    foreach my $opt qw(highlight line_no pod) {
+    foreach my $opt (qw(highlight line_no pod)) {
         if( defined $query->param($opt) ) {
             $options{$opt} = $query->param($opt);
         } else {