700-tie_fetch_count_t-handle_missing_crypt.patch (927B)
1 --- a/t/op/tie_fetch_count.t 2 +++ b/t/op/tie_fetch_count.t 3 @@ -250,12 +250,17 @@ for ([chdir=>''],[chmod=>'0,'],[chown=>' 4 check_count "$op $args\\\$tied_glob$postargs"; 5 } 6 7 -$dummy = crypt $var,0; check_count 'crypt $tied, ...'; 8 -$dummy = crypt 0,$var; check_count 'crypt ..., $tied'; 9 -$var = substr(chr 256,0,0); 10 -$dummy = crypt $var,0; check_count 'crypt $tied_utf8, ...'; 11 -$var = substr(chr 256,0,0); 12 -$dummy = crypt 0,$var; check_count 'crypt ..., $tied_utf8'; 13 +SKIP: { 14 + use Config; 15 + skip "crypt() is unavailable", 4, unless defined $Config{'d_crypt'}; 16 + 17 + $dummy = crypt $var,0; check_count 'crypt $tied, ...'; 18 + $dummy = crypt 0,$var; check_count 'crypt ..., $tied'; 19 + $var = substr(chr 256,0,0); 20 + $dummy = crypt $var,0; check_count 'crypt $tied_utf8, ...'; 21 + $var = substr(chr 256,0,0); 22 + $dummy = crypt 0,$var; check_count 'crypt ..., $tied_utf8'; 23 +} 24 25 SKIP: 26 {