diff --git a/C/t/08taint.t b/C/t/08taint.t
index 51d4f36..b9da272 100644
--- a/C/t/08taint.t
+++ b/C/t/08taint.t
@@ -28,7 +28,7 @@ use Test::Warn;
 $ENV{ACTIVEPERL_CONFIG_SILENT} = 1;
 
 # deal with running as root - actually simulate running as setuid program. Avoid on Windows.
-$< = 1 unless $^O =~ /MSWin32/i; # ignore failure
+eval { $< = 1 }; # ignore failure
 
 my $w1 = 'Blindly untainting tainted fields in %ENV';
 my $w2 = 'Blindly untainting Inline configuration file information';