1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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 {
|
