lang/perl/patches/700-tie_fetch_count_t-handle_missing_crypt.patch

   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  {