/[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.13 by jlenton, Wed Apr 30 21:24:42 2003 UTC revision 1.14 by jlenton, Wed Apr 30 22:27:58 2003 UTC
# Line 5  use English; Line 5  use English;
5  use Carp;  use Carp;
6  use neb::Tree::Tag;  use neb::Tree::Tag;
7  use neb::Quoter;  use neb::Quoter;
8    use neb::Misc qw'find_file';
9  use neb;  use neb;
10  our @ISA = ('neb::Tree::Tag');  our @ISA = ('neb::Tree::Tag');
11    
 sub _find_file  
 {  
     my $F = shift;  
     my @path = split(":", $ENV{'NEB_PATH'}||".");  
   
     foreach my $dir (@path)  
     {  
         return "$dir/$F" if -f "$dir/$F";  
     }  
     return $F;  
 }  
   
12  sub init  sub init
13  {  {
14      my $self = shift;      my $self = shift;
# Line 40  sub init Line 29  sub init
29      my $offset = $text =~ tr/\n/\n/;      my $offset = $text =~ tr/\n/\n/;
30    
31      local $INPUT_RECORD_SEPARATOR = undef;      local $INPUT_RECORD_SEPARATOR = undef;
32      my $F = _find_file($self->delete('neb:src'));      my $F = find_file($self->delete('neb:src'));
33    
34    
35      $parents .= "::$F";      $parents .= "::$F";

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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