Perl 5.14 compatibility

jcollie · Nov 3, 2011 · fc29400 · fc29400
1 parent 336e58e
commit fc29400
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/htdocs/header.mhtml b/htdocs/header.mhtml
@@ -53,7 +53,7 @@ $ui->get_allowed_objects($r, $user) if $user;
 % }
 </head>
 % my $js_prefix = $r->dir_config('NetdotPath') . "java_script";
-% for my $script qw( dynamic_list select jsrsClient toggle datechooser ) {
+% for my $script (qw/dynamic_list select jsrsClient toggle datechooser/) {
 <script language="JavaScript" src="<% $js_prefix %>/<% $script %>.js"></script>
 % }
 <body<% $onload %>>