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 do...@apache.org on 2001/02/02 05:53:49 UTC

cvs commit: modperl-2.0/lib/Apache ParseSource.pm

dougm       01/02/01 20:53:49

  Modified:    lib/Apache ParseSource.pm
  Log:
  strip bitfield spec
  
  Revision  Changes    Path
  1.5       +1 -0      modperl-2.0/lib/Apache/ParseSource.pm
  
  Index: ParseSource.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/ParseSource.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- ParseSource.pm	2001/01/24 06:38:37	1.4
  +++ ParseSource.pm	2001/02/02 04:53:48	1.5
  @@ -218,6 +218,7 @@
                  my $type = $_->[0];
                  $type =~ s/$sx//;
                  $type .= $_->[1] if $_->[1];
  +               $type =~ s/:\d+$//; #unsigned:1
                  { type => $type, name => $_->[2] }
              } @$elts],
           };