Don't use perl routines directly but use WML's encapsulation of them.

This patch is from Denis Barbier, not from me, I wasn't able to fix
*this* problem.

CVS version numbers

english/template/debian/translation-check.wml: 1.45 -> 1.46

1 files changed, 6 insertions, 7 deletions

diff --git a/english/template/debian/translation-check.wml b/english/template/debian/translation-check.wml
index 9049afde7a2..1d1ea4505a6 100644
--- a/english/template/debian/translation-check.wml
+++ b/english/template/debian/translation-check.wml
@@ -61,8 +61,8 @@
 # This is the message that is displayed if the translation is too old.
 # (difference >= max_delta)
 <define-tag translationoutofdate whitespace=delete>
-#<:
-#my $slices = q{
+<perl>
+my $slices = q{
   [EN:<P><STRONG>Warning! This translation is too out of date,
       please see the <A HREF="$link">original</A>.</STRONG></P>:]
   [AR:<P><STRONG>Warning! This translation is too out of date,
@@ -109,11 +109,10 @@
       please see the <A HREF="$link">original</A>.</STRONG></P>:]
   [ZH:<p><strong>注意！此網頁中文譯本太久沒有更新了，\
       請參閱\<a href="$link">最新原英文本</a>。</strong></p>:]
-#};
-#$slices =~ s/([^:][^ \]])\n/$1 \n/g;
-#$slices =~ s/\n\s*//g;
-#print $slices;
-#:>
+};
+<perl:var> =~ s/([^:][^ \]])\n/$1 \n/g;
+<perl:print:var>
+</perl>
 </define-tag>
 
 # This is the message that is displayed if the referenced original file