NaturalDocs-path.patch

   1 diff -uNr NaturalDocs-1.16.org/Modules/NaturalDocs/Settings.pm NaturalDocs-1.16/Modules/NaturalDocs/Settings.pm
   2 --- NaturalDocs-1.16.org/Modules/NaturalDocs/Settings.pm        2004-01-20 17:53:22.000000000 +0100
   3 +++ NaturalDocs-1.16/Modules/NaturalDocs/Settings.pm    2004-01-25 00:29:39.000000000 +0100
   4 @@ -357,7 +357,7 @@
   5  # Function: StyleDirectory
   6  # Returns the main style directory.
   7  sub StyleDirectory
   8 -    {  return NaturalDocs::File->JoinPaths($FindBin::RealBin, 'Styles', 1);  };
   9 +    {  return NaturalDocs::File->JoinPaths('/usr/share/NaturalDocs', 'Styles', 1);  };
  10
  11  # Function: TabLength
  12  # Returns the number of spaces tabs should be expanded to.
  13 diff -uNr NaturalDocs-1.16.org/NaturalDocs NaturalDocs-1.16/NaturalDocs
  14 --- NaturalDocs-1.16.org/NaturalDocs    2004-01-22 23:00:16.000000000 +0100
  15 +++ NaturalDocs-1.16/NaturalDocs        2004-01-25 00:31:58.000000000 +0100
  16 @@ -3,7 +3,6 @@
  17  use 5.005;  # When File::Spec was included by default
  18
  19  use FindBin;
  20 -use lib "$FindBin::RealBin/Modules";
  21
  22  sub INIT
  23      {
  24 @@ -368,7 +367,7 @@
  25  sub UseDirectory #(directory, directory, directory ...)
  26      {
  27      my $extraPath = NaturalDocs::File->JoinDirectories(@_);
  28 -    my $fullPath = NaturalDocs::File->JoinPaths($FindBin::RealBin, $extraPath, 1);
  29 +    my $fullPath = NaturalDocs::File->JoinPaths('/usr/share/perl5/vendor_perl', $extraPath, 1);
  30
  31      my @directories = ( $fullPath );
  32
  33 @@ -435,8 +434,8 @@
  34
  35  BEGIN {
  36
  37 -    UseDirectory( 'Modules', 'NaturalDocs', 'Builder' );
  38 -    UseDirectory( 'Modules', 'NaturalDocs', 'Extensions' );
  39 +    UseDirectory( 'NaturalDocs', 'Builder' );
  40 +    UseDirectory( 'NaturalDocs', 'Extensions' );
  41
  42      };
  43