#!./perl -Tw
# Testing Cwd under taint mode.
-use Cwd;
+use strict;
+
BEGIN {
- chdir 't' if -d 't';
+ if ($ENV{PERL_CORE}) {
+ chdir 't';
+ @INC = '../lib';
+ }
}
+use Cwd;
+chdir 't';
+
+use File::Spec;
+use lib File::Spec->catdir('t', 'lib');
+use Test::More tests => 17;
-use strict;
-use Test::More tests => 16;
use Scalar::Util qw/tainted/;
my @Functions = qw(getcwd cwd fastcwd fastgetcwd
is( $@, '', "$func() should not explode under taint mode" );
ok( tainted($cwd), "its return value should be tainted" );
}
+
+# Previous versions of Cwd tainted $^O
+is !tainted($^O), 1, "\$^O should not be tainted";