#!perl -T
use strict;
use warnings;
use Test::More tests => 2;
use Scalar::Util qw(tainted);
use Locale::Maketext;
my @ENV_values = map { !/^PERL/ && defined($ENV{$_}) && !ref($ENV{$_}) && $ENV{$_} ? $ENV{$_} : () } sort keys %ENV;
die "No %ENV vars to test?" if !@ENV_values;
my ($tainted_value)= @ENV_values;
$tainted_value =~ s/([\[\]])/~$1/g;
# If ${^TAINT} is not set despite -T, this perl doesn't have taint support
ok(!${^TAINT} || tainted($tainted_value), "\$tainted_value is tainted")
    or die("Could not find tainted value to use for testing (maybe fix the test?)");
my $result = Locale::Maketext::_compile("hello [_1]", $tainted_value);
pass("_compile does not hang on tainted values");