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

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

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

revision 1.11 by mhepp, Fri Apr 25 18:34:30 2003 UTC revision 1.12 by jlenton, Tue Apr 29 21:20:04 2003 UTC
# Line 25  sub init Line 25  sub init
25      my $self = shift;      my $self = shift;
26      $self->SUPER::init(@_);      $self->SUPER::init(@_);
27            
28        die "neb:Sub necesita un atributo neb:src para saber de donde sacar el Sub!\n"
29            unless ($self->attribute('neb:src'));
30    
31      my $parents = $self->url;      my $parents = $self->url;
32    
33      my $text = "<neb><!-- $parents --><neb:Block>{ "      my $text = "<neb><!-- $parents --><neb:Block>{ "
# Line 39  sub init Line 42  sub init
42      local $INPUT_RECORD_SEPARATOR = undef;      local $INPUT_RECORD_SEPARATOR = undef;
43      my $F = _find_file($self->delete('neb:src'));      my $F = _find_file($self->delete('neb:src'));
44    
45    
46      $parents .= "::$F";      $parents .= "::$F";
47    
48      open (F, $F) or confess "No puedo abrir el archivo $F: $OS_ERROR";      open (F, $F) or confess "No puedo abrir el archivo $F: $OS_ERROR";

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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