From: Justin Case <>
Date: Wed, 18 May 2011 20:43:24 +0000 (-0700)
Subject: [perl #89896] Locale::Maketext test failure
X-Git-Tag: accepted/trunk/20130322.191538~4233
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6aac7955575f46b396a8806c260a6b1e11f3f931;p=platform%2Fupstream%2Fperl.git

[perl #89896] Locale::Maketext test failure
when environment has variable containing unbalanced brackets

Patch is attached to escape brackets in the value of the environment
variable being used in the test.
---

diff --git a/dist/Locale-Maketext/t/09_compile.t b/dist/Locale-Maketext/t/09_compile.t
index e2bbe43..06db484 100644
--- a/dist/Locale-Maketext/t/09_compile.t
+++ b/dist/Locale-Maketext/t/09_compile.t
@@ -11,6 +11,7 @@ use Locale::Maketext;
 my @ENV_values = values %ENV;
 my $tainted_value;
 do { $tainted_value = shift @ENV_values  } while(!$tainted_value || ref $tainted_value);
+$tainted_value =~ s/([\[\]])/~$1/g;
 
 ok(tainted($tainted_value), "\$tainted_value is tainted") or die('huh... %ENV has no entries? I don\'t know how to test taint without it');