[groff] 06/15: [gperl] gperl.man: Make it work in compatibility mode. (EL): Fix typo.

[Werner LEMBERG]

wl pushed a commit to branch master
in repository groff.

commit 4376dfd5cbd83fe81a6b38a260eae37a442ca16a
Author: Werner Lemberg <address@hidden>
Date:   Fri Apr 3 16:27:47 2015 +0200

    [gperl] gperl.man: Make it work in compatibility mode.
    (EL): Fix typo.
---
 contrib/gperl/ChangeLog |    5 +++++
 contrib/gperl/gperl.man |   20 ++++++++++----------
 2 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/contrib/gperl/ChangeLog b/contrib/gperl/ChangeLog
index 4da5ffe..dd0d50d 100644
--- a/contrib/gperl/ChangeLog
+++ b/contrib/gperl/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-03  Werner LEMBERG  <address@hidden>
+
+       * gperl.man: Make it work in compatibility mode.
+       (EL): Fix typo.
+
 2014-10-11  Bernd Warken  <address@hidden>
 
        * gperl.pl: Version 1.2.6
diff --git a/contrib/gperl/gperl.man b/contrib/gperl/gperl.man
index 3600f4d..6cc949e 100644
--- a/contrib/gperl/gperl.man
+++ b/contrib/gperl/gperl.man
@@ -16,7 +16,7 @@ Bernd Warken
 ..
 .
 .de co
-Copyright \[co] 2014 Free Software Foundation, Inc.
+Copyright \(co 2014 Free Software Foundation, Inc.
 .
 .P
 This file is part of
@@ -46,12 +46,12 @@ The license text is available in the internet at
 .\" --------------------------------------------------------------------
 .
 .\" Ellipsis ...
-.ie t .ds EL \fS\N'188'\fP
-.el .ds EL \&.\|.\|.\&\
+.ie t .ds EL \fS\N'188'\fP\"
+.el .ds EL \&.\|.\|.\&\"
 .\" called with \*(EL
 .
 .\" Bullet
-.ie t .ds BU \[bu]
+.ie t .ds BU \(bu
 .el .ds BU *
 .\" used in `.IP \*(BU 2m' (former .Topic)
 .
@@ -200,7 +200,7 @@ The argument
 .I other_than_start
 can additionally be used as a
 .I groff
-string variable name for storage \[em] see next section.
+string variable name for storage \(em see next section.
 .
 .
 .\" --------------------------------------------------------------------
@@ -228,7 +228,7 @@ program.
 .
 This pseudo-printing output can have several lines, due to printed
 line breaks with
-.BR \[rs]n .
+.BR \(rsn .
 .
 By that, the output of a Perl run should be stored into a Perl array,
 with a single line for each array member.
@@ -432,7 +432,7 @@ after
 .
 .P
 This stores the result
-.B \[rq]some data\[rq]
+.B \(rqsome data\(rq
 into the
 .I roff string
 called
@@ -457,9 +457,9 @@ with several outputs is:
 .RS
 .EX
 \&.Perl start
-print \[rq]first\[rs]n\[rq];
-print \[rq]second line\[rs]n\[rq];
-print \[rq]3\[rs]n\[rq];
+print \(rqfirst\(rsn\(rq;
+print \(rqsecond line\(rsn\(rq;
+print \(rq3\(rsn\(rq;
 \&.Perl var1 var2 .nr var3 
 .EE
 .RE