The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
123456789101112131415 #!/usr/bin/perl -Tuse strict;use warnings;use Cwd;# Try to make sure we are in the test directorymy $cwd = Cwd::cwd();chdir 't' if $cwd !~ m{/t$};$cwd = Cwd::cwd();$cwd = ($cwd =~ /^(.*)$/)[0]; # untaint# re-run 02_testmodule.t with taint mode onrequire "$cwd/02_testmodule.t";
#!/usr/bin/perl -T
use
strict;
warnings;
Cwd;
# Try to make sure we are in the test directory
my
$cwd
= Cwd::cwd();
chdir
't'
if
!~ m{/t$};
= (
=~ /^(.*)$/)[0];
# untaint
# re-run 02_testmodule.t with taint mode on
require
"$cwd/02_testmodule.t"
;