$NetBSD: patch-share_html_Admin_CustomFields_Modify.html,v 1.1.2.2 2011/11/02 22:52:22 tron Exp $ perl 5.14 qw() in for* fixes --- share/html/Admin/CustomFields/Modify.html.orig 2011-04-14 00:32:21.000000000 +0000 +++ share/html/Admin/CustomFields/Modify.html @@ -196,7 +196,7 @@ if ( $ARGS{'Update'} && $id ne 'new' ) { # Update any existing values my $values = $CustomFieldObj->ValuesObj; while ( my $value = $values->Next ) { - foreach my $attr qw(Name Description SortOrder Category) { + foreach my $attr ( qw(Name Description SortOrder Category) ) { my $param = join("-", $paramtag, $value->Id, $attr); next unless exists $ARGS{$param}; $ARGS{$param} =~ s/^\s+//;