diff options
author | des <des@FreeBSD.org> | 2005-06-17 08:11:43 +0000 |
---|---|---|
committer | des <des@FreeBSD.org> | 2005-06-17 08:11:43 +0000 |
commit | 62f0804df44b26a38b48b6bf23506053306caca5 (patch) | |
tree | 4649208e5598c675638d724254325180351c0422 /contrib/openpam/misc | |
parent | bdbb8765153aaed95c3668a79bdb163f62878050 (diff) | |
download | FreeBSD-src-62f0804df44b26a38b48b6bf23506053306caca5.zip FreeBSD-src-62f0804df44b26a38b48b6bf23506053306caca5.tar.gz |
Vendor import of OpenPAM Figwort.
Diffstat (limited to 'contrib/openpam/misc')
-rw-r--r-- | contrib/openpam/misc/gendoc.pl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/contrib/openpam/misc/gendoc.pl b/contrib/openpam/misc/gendoc.pl index 453b453..99b649b 100644 --- a/contrib/openpam/misc/gendoc.pl +++ b/contrib/openpam/misc/gendoc.pl @@ -32,7 +32,7 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $P4: //depot/projects/openpam/misc/gendoc.pl#29 $ +# $P4: //depot/projects/openpam/misc/gendoc.pl#30 $ # use strict; @@ -341,13 +341,21 @@ sub expand_errors($) { $func->{'errors'} = [ sort(keys(%errors)) ]; } +sub dictionary_order($$) { + my ($a, $b) = @_; + + $a =~ s/[^[:alpha:]]//g; + $b =~ s/[^[:alpha:]]//g; + $a cmp $b; +} + sub genxref($) { my $xref = shift; # References my $mdoc = ''; my @refs = (); foreach my $sect (sort(keys(%{$xref}))) { - foreach my $page (sort(keys(%{$xref->{$sect}}))) { + foreach my $page (sort(dictionary_order keys(%{$xref->{$sect}}))) { push(@refs, "$page $sect"); } } |