From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Tue, 22 May 2012 15:23:20 +0000 (+0200)
Subject: Fix mktables bug due to the previous overload fix
X-Git-Tag: upstream/5.20.0~6734^2
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5f9f83be9cdcd54449f7f40db078fe367d780475;p=platform%2Fupstream%2Fperl.git

Fix mktables bug due to the previous overload fix

Due to the previous patch, perl can't generate the operator for .= in
package Property anymore (because fallback is '0' in that package), so
we need to work around that; this patch implements the least intrusive
workaround possible.
---

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index b4d980b..3ad7a48 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -12881,9 +12881,10 @@ END
                                 Type => $ENUM,
                                 Initialize => $age,
                                 );
+        my $q_in = "$in";
         $in->add_comment(join_lines(<<END
 THIS FILE SHOULD NOT BE USED FOR ANY PURPOSE.  The values in this file are the
-same as for $age, and not for what $in really means.  This is because anything
+same as for $age, and not for what $q_in really means.  This is because anything
 defined in a given release should have multiple values: that release and all
 higher ones.  But only one value per code point can be represented in a table
 like this.