|
|
- Index: perl-5.22.0/t/op/tie_fetch_count.t
- ===================================================================
- --- perl-5.22.0.orig/t/op/tie_fetch_count.t
- +++ perl-5.22.0/t/op/tie_fetch_count.t
- @@ -250,12 +250,17 @@ for ([chdir=>''],[chmod=>'0,'],[chown=>'
- check_count "$op $args\\\$tied_glob$postargs";
- }
-
- -$dummy = crypt $var,0; check_count 'crypt $tied, ...';
- -$dummy = crypt 0,$var; check_count 'crypt ..., $tied';
- -$var = substr(chr 256,0,0);
- -$dummy = crypt $var,0; check_count 'crypt $tied_utf8, ...';
- -$var = substr(chr 256,0,0);
- -$dummy = crypt 0,$var; check_count 'crypt ..., $tied_utf8';
- +SKIP: {
- + use Config;
- + skip "crypt() is unavailable", 4, unless defined $Config{'d_crypt'};
- +
- + $dummy = crypt $var,0; check_count 'crypt $tied, ...';
- + $dummy = crypt 0,$var; check_count 'crypt ..., $tied';
- + $var = substr(chr 256,0,0);
- + $dummy = crypt $var,0; check_count 'crypt $tied_utf8, ...';
- + $var = substr(chr 256,0,0);
- + $dummy = crypt 0,$var; check_count 'crypt ..., $tied_utf8';
- +}
-
- SKIP:
- {
|
