relocatable-maint.texi: escape braces

[gnulib.git] / doc / relocatable-maint.texi

diff --git a/doc/relocatable-maint.texi b/doc/relocatable-maint.texi
index 23b5048..696b350 100644 (file)
--- a/doc/relocatable-maint.texi
+++ b/doc/relocatable-maint.texi
@@ -150,19 +150,19 @@ Perl script that your package installs, add the following:
 
 @example
 @@relocatable_pl@@
-if ("@@RELOCATABLE@@" eq "yes") {
+if ("@@RELOCATABLE@@" eq "yes") @{
   my $exec_prefix = "@@exec_prefix@@";
   my $orig_installdir = "@@bindir@@"; # see Makefile.am's *_SCRIPTS variables
   my ($orig_installprefix, $curr_installprefix) = find_prefixes($orig_installdir, find_curr_installdir());
-  sub relocate { # the subroutine is defined whether or not the enclosing block is executed
+  sub relocate @{ # the subroutine is defined whether or not the enclosing block is executed
     my ($dir) = @@_;
-    if ("@@RELOCATABLE@@" eq "yes") {
+    if ("@@RELOCATABLE@@" eq "yes") @{
       $dir =~ s%^$orig_installprefix/%$curr_installprefix/%;
       $dir =~ s,/$,,;
-    }
+    @}
     return $dir;
-  }
-}
+  @}
+@}
 
 # Get some relocated directory names.
 $sysconfdir = relocate("@@sysconfdir@@");