You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2006/11/20 10:11:00 UTC

svn commit: r477116 - /perl/modperl/trunk/lib/Apache2/ParseSource.pm

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)/;