===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/mandoc/roff.c,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- src/usr.bin/mandoc/roff.c	2011/07/07 20:07:38	1.39
+++ src/usr.bin/mandoc/roff.c	2011/07/31 14:11:48	1.40
@@ -1,4 +1,4 @@
-/*	$Id: roff.c,v 1.39 2011/07/07 20:07:38 schwarze Exp $ */
+/*	$Id: roff.c,v 1.40 2011/07/31 14:11:48 schwarze Exp $ */
 /*
  * Copyright (c) 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
  * Copyright (c) 2010, 2011 Ingo Schwarze <schwarze@openbsd.org>
@@ -1343,6 +1343,12 @@
 	struct roffstr	 *n;
 	char		 *c;
 	size_t		  oldch, newch;
+
+	/* XXX workaround for the Perl preamble until we get .tr */
+	if ( ! strcmp(name, "--")) {
+		string = "--";
+		multiline = 0;
+	}
 
 	/* Search for an existing string with the same name. */
 	n = r->first_string;