Index: head/share/xml/man-refs.pl =================================================================== --- head/share/xml/man-refs.pl (revision 49646) +++ head/share/xml/man-refs.pl (revision 49647) @@ -1,11 +1,11 @@ #!/usr/bin/perl -w # $FreeBSD$ use strict; while (<>) { next unless (m,^(.*/)([\w\._-]+)\.(\d\w*)(\.gz)?$,); my ($entity, $page, $volume) = ($2, $2, $3); $entity =~ y/_/./; - print "\n"; + print "$page$volume\">\n"; }