perl: Skip crypt() tests if unavailable in t/op/tie_fetch_count.t

Signed-off-by: Marcel Denia <redacted>

diff --git a/lang/perl/patches/600-tie_fetch_count_t-handle_missing_crypt.patch b/lang/perl/patches/600-tie_fetch_count_t-handle_missing_crypt.patch
new file mode 100644 (file)
index 0000000..32914dd
--- /dev/null
+++ b/lang/perl/patches/600-tie_fetch_count_t-handle_missing_crypt.patch
@@ -0,0 +1,28 @@
+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:
+ {