# HG changeset patch
# User Carnë Draug <carandraug@octave.org>
# Date 1405610730 -3600
# Node ID 18e46285a60873f056dea482ebedc6b01cfa9510
# Parent  961ecaf9fb57256fbf29a8991317dc88da9e7c3f
Skip private functions when building DOCSTRING (bug #42791).

* scripts/mkdoc.pl: the DOCSTRING being built are used as cache for functions
such as 'lookfor()', even if they are private functions. This change skips
those, effectively removing them from lookfor results.

diff -r 961ecaf9fb57 -r 18e46285a608 scripts/mkdoc.pl
--- a/scripts/mkdoc.pl	Thu Jul 17 11:20:26 2014 -0700
+++ b/scripts/mkdoc.pl	Thu Jul 17 16:25:30 2014 +0100
@@ -21,6 +21,7 @@
 ## Expecting arguments in this order:
 ##
 ##  SRCDIR SRCDIR-FILES ... -- LOCAL-FILES ...
+use File::Spec;
 
 unless (@ARGV >= 2) { die "Usage: $0 srcdir m_filename1 ..." ; }
 
@@ -43,6 +44,7 @@
   }
 
   $full_fname = $srcdir . $m_fname;
+  next MFILE if ((File::Spec->splitdir($full_fname))[-2] eq "private");
   next MFILE unless ( $full_fname =~ m{(.*)/(@|)([^/]*)/(.*)\.m} );
   if ($2)
     { $fcn = "$2$3/$4"; }