>From 11b36881c7e83400bce94f413873ad2229237a17 Mon Sep 17 00:00:00 2001 From: Daniel Albers Date: Thu, 16 Jan 2014 12:05:34 +0100 Subject: [PATCH] relocatable-maint.texi: escape braces --- doc/relocatable-maint.texi | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/doc/relocatable-maint.texi b/doc/relocatable-maint.texi index 23b5048..696b350 100644 --- 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; - } -} + @} address@hidden # Get some relocated directory names. $sysconfdir = relocate("@@sysconfdir@@"); -- 1.8.5.2