1#!/usr/bin/perl -T 2use strict; 3use Encode qw(encode decode); 4use Scalar::Util qw(tainted); 5use Test::More; 6 7my $str = "abc" . substr($ENV{PATH},0,0); # tainted string 8my @names = Encode->encodings(':all'); 9plan tests => 2 * @names; 10for my $name (@names){ 11 my $e = encode($name, $str); 12 ok tainted($e), "encode $name"; 13 my $d = decode($name, $e); 14 ok tainted($d), "decode $name"; 15} 16