Correct taint.t to skip the truncate test if $Config{d_truncate} is false.

Previously it had a comment, present since 5.003_92, that "There is no feature
test in $Config{} for truncate, so we allow for the possibility that it's
d missing."

This was never correct, as 5.000 had d_truncate, and taint.t had analogous
tests for $Config{d_chown} etc.

1 files changed, 6 insertions, 4 deletions

diff --git a/t/op/taint.t b/t/op/taint.t
index 100d4f7c03..a940493f8d 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -1040,10 +1040,12 @@ SKIP: {
     test !eval { chmod 0, $TAINT }, 'chmod';
     test $@ =~ /^Insecure dependency/, $@;
 
-    # There is no feature test in $Config{} for truncate,
-    #   so we allow for the possibility that it's missing.
-    test !eval { truncate 'NoSuChFiLe', $TAINT0 }, 'truncate';
-    test $@ =~ /^(?:Insecure dependency|truncate not implemented)/, $@;
+    SKIP: {
+        skip "truncate() is not available", 2 unless $Config{d_truncate};
+
+	test !eval { truncate 'NoSuChFiLe', $TAINT0 }, 'truncate';
+	test $@ =~ /^Insecure dependency/, $@;
+    }
 
     test !eval { rename '', $TAINT }, 'rename';
     test $@ =~ /^Insecure dependency/, $@;