/[papo]/papo/neb/neb/Tree/Container.pm
ViewVC logotype

Diff of /papo/neb/neb/Tree/Container.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by jlenton, Wed Apr 9 15:29:14 2003 UTC revision 1.3 by jlenton, Wed Apr 9 19:59:22 2003 UTC
# Line 16  sub add_content Line 16  sub add_content
16      my $content = shift;      my $content = shift;
17    
18      push @{$self->{CONTENT}}, $content;      push @{$self->{CONTENT}}, $content;
     $content->parent($self);  
   
19      return @{$self->{CONTENT}};      return @{$self->{CONTENT}};
20  }  }
21    
# Line 51  sub content Line 49  sub content
49  sub canonical  sub canonical
50  {  {
51      my $self = shift;      my $self = shift;
52      return join('',      return join('', map($_->canonical, $self->content));
                 map($_->canonical, $self->content));  
53  }  }
54    
55  sub code  sub code

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26