cvs commit: parrot/languages/jako/lib/Jako/Construct/Block Bare.pm

[Gregor N . Purdy]

cvsuser     03/03/14 03:30:39

  Modified:    languages/jako/lib/Jako/Construct/Block Bare.pm
  Log:
    * Fixed a typo
  
  Thanks to: [EMAIL PROTECTED]
  
  Revision  Changes    Path
  1.2       +3 -7      parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm
  
  Index: Bare.pm
  ===================================================================
  RCS file: /cvs/public/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- Bare.pm   3 Feb 2003 11:48:52 -0000       1.1
  +++ Bare.pm   14 Mar 2003 11:30:38 -0000      1.2
  @@ -5,7 +5,7 @@
   # This program is free software. It is subject to the same license
   # as the Parrot interpreter.
   #
  -# $Id: Bare.pm,v 1.1 2003/02/03 11:48:52 gregor Exp $
  +# $Id: Bare.pm,v 1.2 2003/03/14 11:30:38 gregor Exp $
   #
   
   use strict;
  @@ -34,9 +34,7 @@
     if ($self->content) {
       $compiler->emit(".namespace ${namespace}");
       $compiler->indent;
  -    foreach my $content ($self->contents) {
  -      $content->compile($compiler);
  -    }
  +    $self->SUPER::compile($compiler);
       $compiler->outdent;
       $compiler->emit(".endnamespace ${namespace}");
     }
  @@ -55,9 +53,7 @@
     my ($handler) = @_;
   
     $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } 
});
  -  foreach my $content ($self->content) {
  -    $content->sax($handler);
  -  }
  +  $_->sax($handler) foreach $self->content;
     $handler->end_element({ Name => 'block' });
   }