- patch allowing system-wide installation

Changed files:
    NaturalDocs-path.patch -> 1.1

diff --git a/NaturalDocs-path.patch b/NaturalDocs-path.patch
new file mode 100644 (file)
index 0000000..62eaaa1
--- /dev/null
+++ b/NaturalDocs-path.patch
@@ -0,0 +1,43 @@
+diff -uNr NaturalDocs-1.16.org/Modules/NaturalDocs/Settings.pm NaturalDocs-1.16/Modules/NaturalDocs/Settings.pm
+--- NaturalDocs-1.16.org/Modules/NaturalDocs/Settings.pm       2004-01-20 17:53:22.000000000 +0100
++++ NaturalDocs-1.16/Modules/NaturalDocs/Settings.pm   2004-01-25 00:29:39.000000000 +0100
+@@ -357,7 +357,7 @@
+ # Function: StyleDirectory
+ # Returns the main style directory.
+ sub StyleDirectory
+-    {  return NaturalDocs::File->JoinPaths($FindBin::RealBin, 'Styles', 1);  };
++    {  return NaturalDocs::File->JoinPaths('/usr/share/NaturalDocs', 'Styles', 1);  };
+ 
+ # Function: TabLength
+ # Returns the number of spaces tabs should be expanded to.
+diff -uNr NaturalDocs-1.16.org/NaturalDocs NaturalDocs-1.16/NaturalDocs
+--- NaturalDocs-1.16.org/NaturalDocs   2004-01-22 23:00:16.000000000 +0100
++++ NaturalDocs-1.16/NaturalDocs       2004-01-25 00:31:58.000000000 +0100
+@@ -3,7 +3,6 @@
+ use 5.005;  # When File::Spec was included by default
+ 
+ use FindBin;
+-use lib "$FindBin::RealBin/Modules";
+ 
+ sub INIT
+     {
+@@ -368,7 +367,7 @@
+ sub UseDirectory #(directory, directory, directory ...)
+     {
+     my $extraPath = NaturalDocs::File->JoinDirectories(@_);
+-    my $fullPath = NaturalDocs::File->JoinPaths($FindBin::RealBin, $extraPath, 1);
++    my $fullPath = NaturalDocs::File->JoinPaths('/usr/share/perl5/vendor_perl', $extraPath, 1);
+ 
+     my @directories = ( $fullPath );
+ 
+@@ -435,8 +434,8 @@
+ 
+ BEGIN {
+ 
+-    UseDirectory( 'Modules', 'NaturalDocs', 'Builder' );
+-    UseDirectory( 'Modules', 'NaturalDocs', 'Extensions' );
++    UseDirectory( 'NaturalDocs', 'Builder' );
++    UseDirectory( 'NaturalDocs', 'Extensions' );
+ 
+     };
+