/[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.9 by jlenton, Thu Apr 17 18:51:15 2003 UTC revision 1.10 by fheinz, Thu Apr 17 19:26:29 2003 UTC
# Line 7  use neb::Quoter; Line 7  use neb::Quoter;
7  use neb;  use neb;
8  our @ISA = ('neb::Tree::Tag');  our @ISA = ('neb::Tree::Tag');
9    
10    sub _find_file
11    {
12        my $F = shift;
13        my @path = split(":", $ENV{'NEB_PATH'}||".");
14    
15        foreach my $dir (@path)
16        {
17            return "$dir/$F" if -f "$dir/$F";
18        }
19        return $F;
20    }
21    
22  sub init  sub init
23  {  {
24      my $self = shift;      my $self = shift;
# Line 24  sub init Line 36  sub init
36      my $offset = $text =~ tr/\n/\n/;      my $offset = $text =~ tr/\n/\n/;
37    
38      local $INPUT_RECORD_SEPARATOR = undef;      local $INPUT_RECORD_SEPARATOR = undef;
39      my $F = $self->delete('neb:src');      my $F = _find_file($self->delete('neb:src'));
40    
41      $parents .= "::$F";      $parents .= "::$F";
42    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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