Subversion Repositories gelsvn

Rev

Rev 107 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 217
Line 26... Line 26...
26 
  #my($self) = shift;
 26 
  #my($self) = shift;
27 
  return 1;
 27 
  return 1;
28 
}
 28 
}
29 
 
 29 
 
30 
 
 30 
 
31 
sub convert_slashes {
 - 
 
32 
  #my($self) = shift;
 - 
 
33 
  return 0;
 - 
 
34 
}
 - 
 
35 
 
 - 
 
36 
 
 - 
 
37 
sub fill_value {
 31 
sub fill_value {
38 
  my($self)  = shift;
 32 
  my($self)  = shift;
39 
  my($name)  = shift;
 33 
  my($name)  = shift;
40 
  my($value) = undef;
 34 
  my($value) = undef;
41 
 
 35 
 
42 
  if ($name eq 'am_includes') {
 36 
  if ($name eq 'am_includes') {
43 
    my($incs) = $self->get_assignment('includes');
 37 
    my($incs) = $self->get_assignment('includes');
44 
    if (defined $incs) {
 38 
    if (defined $incs) {
45 
      my(@vec) = split(' ', $incs);
 39 
      my(@vec) = split(' ', $incs);
- 
 
 40 
 
- 
 
 41 
#      # The following prefixes include paths with $(srcdir)/.
46 
      foreach(@vec) {
 42 
#      foreach(@vec) {
47 
        if (/^[^\$\/]/) {
 43 
#        if (/^[^\$\/]/) {
48 
          $_ = '$(srcdir)/' . $_;
 44 
#          $_ = '$(srcdir)/' . $_;
49 
        }
 45 
#        }
50 
      }
 46 
#      }
51 
 
 47 
 
52 
      $value = \@vec;
 48 
      $value = \@vec;
53 
    }
 49 
    }
54 
  }
 50 
  }
55 
  elsif ($name eq 'am_version') {
 51 
  elsif ($name eq 'am_version') {