cvs commit: modperl-2.0/lib/ModPerl StructureMap.pm

[dougm]

dougm       01/04/17 21:52:29

  Modified:    lib/ModPerl StructureMap.pm
  Log:
  parse <apr_bucket_type_t MODULE=APR::Bucket>
  
  Revision  Changes    Path
  1.3       +3 -3      modperl-2.0/lib/ModPerl/StructureMap.pm
  
  Index: StructureMap.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/StructureMap.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- StructureMap.pm   2001/03/13 01:47:22     1.2
  +++ StructureMap.pm   2001/04/18 04:52:27     1.3
  @@ -84,15 +84,15 @@
   
       while ($fh->readline) {
           if (m:^(\W?)</?([^>]+)>:) {
  +            my $args;
               $disabled = $1;
  -            my $args = $2;
  +            ($class, $args) = split /\s+/, $2, 2;
   
               %cur = ();
  -            if ($args =~ /E=/) {
  +            if ($args and $args =~ /E=/) {
                   %cur = $self->parse_keywords($args);
               }
   
  -            $class = $cur{STRUCT} || $args;
               $self->{MODULES}->{$class} = $cur{MODULE} if $cur{MODULE};
   
               next;