Permalink
Browse files

Fix a warning on recent perls

  • Loading branch information...
1 parent 20337bd commit e9059783d4850dd4c7a914cee3a3bf70a96dcd58 @rafl rafl committed Feb 7, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Bric/App/Callback/Profile/FormBuilder.pm
@@ -368,7 +368,7 @@ $do_element_type = sub {
for my $sub_type ( @sub_types ) {
my $seid = $sub_type->get_id;
my $modified = 0;
- for my $occ qw(min max) {
+ for my $occ (qw(min max)) {
my $val = $param->{"subelement_type|$occ\_occurrence_$seid"};
$val =~ s/^\s+//;
$val =~ s/\s+$//;

0 comments on commit e905978

Please sign in to comment.