===================================================================
RCS file: /cvs/pod2mdoc/pod2mdoc.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- pod2mdoc/pod2mdoc.c	2014/03/24 01:07:30	1.9
+++ pod2mdoc/pod2mdoc.c	2014/03/24 01:43:42	1.10
@@ -1,4 +1,4 @@
-/*	$Id: pod2mdoc.c,v 1.9 2014/03/24 01:07:30 kristaps Exp $ */
+/*	$Id: pod2mdoc.c,v 1.10 2014/03/24 01:43:42 kristaps Exp $ */
 /*
  * Copyright (c) 2014 Kristaps Dzonsons <kristaps@bsd.lv>
  *
@@ -26,6 +26,11 @@
 #include <string.h>
 #include <unistd.h>
 
+/*
+ * In what section can we find Perl manuals?
+ */
+#define	PERL_SECTION	"3p"
+
 struct	args {
 	const char	*title; /* override "Dt" title */
 	const char	*date; /* override "Dd" date */
@@ -212,7 +217,7 @@ trylink(const char *buf, size_t *start, size_t end, si
 	 * First, allow us to link to other Perl manuals.
 	 */
 	if (hasdouble)
-		printf("Xr %.*s 3p", 
+		printf("Xr %.*s " PERL_SECTION, 
 			(int)(nend - sv), &buf[sv]);
 	else if (nend - sv > 3 && isalnum(buf[sv]) && 
 			')' == buf[nend - 1] && 
@@ -899,7 +904,7 @@ dofile(const struct args *args, const char *fname, 
 		if (NULL != (cp = strrchr(title, '.'))) {
 			*cp++ = '\0';
 			if (0 == strcmp(cp, "pm"))
-				section = "3p";
+				section = PERL_SECTION;
 		}
 	}