Integrate mainline (for ndbm fixes etc.)

[p5sagit/p5-mst-13.2.git] / t / op / crypt.t

diff --git a/t/op/crypt.t b/t/op/crypt.t
index d11a2a0..27c878f 100644 (file)
--- a/t/op/crypt.t
+++ b/t/op/crypt.t
@@ -28,7 +28,10 @@ BEGIN {
 # bets, given alternative encryption/hashing schemes like MD5,
 # C2 (or higher) security schemes, and non-UNIX platforms.
 
-ok(substr(crypt("ab", "cd"), 2) ne substr(crypt("ab", "ce"), 2), "salt makes a difference");
+SKIP: {
+       skip ("VOS crypt ignores salt.", 1) if ($^O eq 'vos');
+       ok(substr(crypt("ab", "cd"), 2) ne substr(crypt("ab", "ce"), 2), "salt makes a difference");
+}
 
 $a = "a\xFF\x{100}";