From 1f9f093691f5cc2359fe3351f7e086dc202c47a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dag-Erling=20Sm=C3=B8rgrav?= <des@des.no>
Date: Mon, 19 Aug 2013 15:09:27 +0000
Subject: [PATCH] Grr, gremlins slipped into gendoc.pl between testing and
 committing.

git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@712 185d5e19-27fe-0310-9dcf-9bff6b9f3609
---
 misc/gendoc.pl | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/misc/gendoc.pl b/misc/gendoc.pl
index ba9ac68..0eec946 100644
--- a/misc/gendoc.pl
+++ b/misc/gendoc.pl
@@ -55,11 +55,9 @@ DARPA/SPAWAR contract N66001-01-C-8035
 as part of the DARPA CHATS research program.
 .Pp
 The OpenPAM library is maintained by
-.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .
-",
+.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .",
     UIO => "developed for the University of Oslo by
-.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .
-",
+.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .",
     DES => "developed by
 .An Dag-Erling Sm\\(/orgrav Aq des\@des.no .",
 );
@@ -437,9 +435,10 @@ sub gendoc($) {
 
     return if defined($$func{nodoc});
 
+    $$func{source} =~ m/([^\/]+)$/;
     $mdoc = ".\\\" Generated from $1 by gendoc.pl\n";
-    if ($func->{'version'}) {
-	$mdoc .= ".\\\" $func->{'version'}\n";
+    if ($$func{version}) {
+	$mdoc .= ".\\\" $$func{version}\n";
     }
     $mdoc .= ".Dd $TODAY
 .Dd $TODAY
@@ -582,7 +581,7 @@ sub gensummary($) {
 
     $page =~ m/(\w+)$/;
     $upage = uc($1);
-    print FILE "$COPYRIGHT
+    print FILE ".\\\" Generated by gendoc.pl
 .Dd $TODAY
 .Dt $upage 3
 .Os