29 lines
1.0 KiB
Diff
29 lines
1.0 KiB
Diff
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:
|
|
{
|