Author: pgollucci Date: Mon Nov 20 01:10:58 2006 New Revision: 477116 URL: http://svn.apache.org/viewvc?view=rev&rev=477116 Log: note that keys correctly returns the number of keys in scalar context and it works in bleed perl ~5.9.5 as of at least r29244
Modified: perl/modperl/trunk/lib/Apache2/ParseSource.pm Modified: perl/modperl/trunk/lib/Apache2/ParseSource.pm URL: http://svn.apache.org/viewvc/perl/modperl/trunk/lib/Apache2/ParseSource.pm?view=diff&rev=477116&r1=477115&r2=477116 ============================================================================== --- perl/modperl/trunk/lib/Apache2/ParseSource.pm (original) +++ perl/modperl/trunk/lib/Apache2/ParseSource.pm Mon Nov 20 01:10:58 2006 @@ -314,12 +314,12 @@ sub handle_constant { my ($self, $constants) = @_; - my $keys = keys %defines_wanted_re; #XXX broken bleedperl ? + my $keys = keys %defines_wanted_re; return if /^($defines_unwanted)/o; while (my ($class, $groups) = each %defines_wanted_re) { - my $keys = keys %$groups; #XXX broken bleedperl ? + my $keys = keys %$groups; while (my ($group, $re) = each %$groups) { next unless /^($re)/;