Fixing the location of the AutoLaTeX documentation (man page...)

Author: gallandarakhneorg

VERSION

@@ -1 +1 @@
-autolatex 31.2
+autolatex 31.3

pm/AutoLaTeX/Core/Main.pm

@@ -117,7 +117,7 @@ sub analyzeCommandLineOptions(\%) {
 				$realcfg->{'__private__'}{'action.fix config file'} = File::Spec->rel2abs($realcfg->{'__private__'}{'action.fix config file'}) if ($realcfg->{'__private__'}{'action.fix config file'});
 			},
 
-		'help|?' => sub { showManual(getAutoLaTeXDir(),"pod","autolatex.pod"); },
+		'help|?' => sub { showManual(getAutoLaTeXDocDir(),"autolatex.pod"); },
 
 		'I=s@' => sub	{
 					if (!$cfg->{'generation.translator include path'}) {

pm/AutoLaTeX/Core/Util.pm

@@ -42,7 +42,7 @@ our $VERSION = '14.0';
 
 @ISA = ('Exporter');
 @EXPORT = qw( &isHash &isArray &removeFromArray &arrayContains &getAutoLaTeXDir
-              &getAutoLaTeXName &getAutoLaTeXLaunchingName &getAutoLaTeXVersion
+              &getAutoLaTeXName &getAutoLaTeXDocDir &getAutoLaTeXLaunchingName &getAutoLaTeXVersion
               &setAutoLaTeXInfo &showManual &printDbg &printErr &formatErr &printWarn &setDebugLevel 
 	      &getDebugLevel &printDbgFor &dumpDbgFor &arrayIndexOf &printDbgIndent
 	      &printDbgUnindent &runCommandOrFail &runSystemCommand &runCommandOrFailFromInput
@@ -186,6 +186,19 @@ sub getAutoLaTeXDir() {
 
 =pod
 
+=item B<getAutoLaTeXDocDir()>
+
+Replies the location of the documentation of AutoLaTeX.
+
+I<Returns:> the AutoLaTeX documentation directory.
+
+=cut
+sub getAutoLaTeXDocDir() {
+	return File::Spec->catfile(getAutoLaTeXDir(), "doc");
+}
+
+=pod
+
 =item B<getAutoLaTeXName()>
 
 Replies the base filename of the main AutoLaTeX script.
@@ -335,7 +348,7 @@ sub showManual(@) {
 		}
 	}
 
-	# Display the
+	# Display the POD
 	if ($pod) {
 		my $pod = File::Spec->catfile(@_, $pod);
 		if ( -r "$pod" ) {