This was doing an extra shift, which doesn't matter currently because
there's only one element in the array, but could cause future problems.
}
print "# User-defined properties with /i differences\n";
- foreach my $class (shift @USER_CASELESS_PROPERTIES) {
+ while (my $class = shift @USER_CASELESS_PROPERTIES) {
my $chars_ref = shift @USER_CASELESS_PROPERTIES;
my @in = grep {!/^!./} @$chars_ref;
my @out = map {s/^!(?=.)//; $_} grep { /^!./} @$chars_ref;