diff options
author | Justin Case <> | 2011-05-18 13:43:24 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-05-18 13:43:24 -0700 |
commit | 6aac7955575f46b396a8806c260a6b1e11f3f931 (patch) | |
tree | 7ddbbb1e007c2697f635c13d666c4e0721d97cf0 /dist/Locale-Maketext/t | |
parent | 0780bc72ac07a0de22bcbd2390e8812c3a23d481 (diff) | |
download | perl-6aac7955575f46b396a8806c260a6b1e11f3f931.tar.gz |
[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.
Diffstat (limited to 'dist/Locale-Maketext/t')
-rw-r--r-- | dist/Locale-Maketext/t/09_compile.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/Locale-Maketext/t/09_compile.t b/dist/Locale-Maketext/t/09_compile.t index e2bbe43114..06db4849f0 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'); |