2 # Testing Cwd under taint mode.
10 use Test::More tests => 2;
12 # The normal kill() trick is not portable.
14 return ! eval { eval("#" . substr(join("", @_), 0, 0)); 1 };
18 eval { $cwd = getcwd; };
19 is( $@, '', 'getcwd() does not explode under taint mode' );
20 ok( is_tainted($cwd), "it's return value is tainted" );