setruid throws exception not just on Win32 - trap in t/08taint.t.

ingydotnet · Jul 7, 2014 · 05348d9 · 05348d9
1 parent 36ed6c7
commit 05348d9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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';