Lines Matching refs:crypt

35 if ( !defined(crypt("ab", $alg."cd")) ) {
38 if ( !defined(crypt("ab", $alg."cd")) ) {
41 if ( !defined(crypt("ab", $alg."cd")) ) {
47     ok(substr(crypt("ab", $alg."cd"), length($alg)+2) ne 
48        substr(crypt("ab", $alg."ce"), length($alg)+2),
54 eval {$b = crypt($a, $alg."cd")};
55 like($@, qr/Wide character in crypt/, "wide characters ungood");
59 eval {$b = crypt($a, $alg."cd")};
61 is($b, crypt("a\xFF", $alg."cd"), "downgrade results agree");
65 $x = crypt "foo", ${\"bar"}; # ${\ } to defeat constant folding
66 is $x, crypt("foo", "bar"), 'crypt writing to utf8 target';