> On 15 Jun 2023, at 04:22, Maxim Dounin <mdou...@mdounin.ru> wrote:
>
> # HG changeset patch
> # User Maxim Dounin <mdou...@mdounin.ru>
> # Date 1686748038 -10800
> # Wed Jun 14 16:07:18 2023 +0300
> # Node ID 032ccd3118cbd5a4cc170a12667cc31ddd279c1f
> # Parent f61d1b4ac638e756c7540dff4d2d69a82d7274fb
> Tests: fixed warning on win32 in auth_basic.t.
>
> diff -r f61d1b4ac638 -r 032ccd3118cb auth_basic.t
> --- a/auth_basic.t Wed Jun 14 16:57:01 2023 +0400
> +++ b/auth_basic.t Wed Jun 14 16:07:18 2023 +0300
> @@ -64,8 +64,8 @@ EOF
>
> $t->write_file(
> 'htpasswd',
> - 'crypt:' . crypt('password', 'salt') . "\n" .
> - 'crypt1:' . crypt('password', '$1$salt$') . "\n" .
> + 'crypt:' . (crypt('password', 'salt') || '') . "\n" .
> + 'crypt1:' . (crypt('password', '$1$salt$') || '') . "\n" .
> 'crypt2:' . '$1$' . "\n" .
> 'apr1:' . '$apr1$salt$Xxd1irWT9ycqoYxGFn4cb.' . "\n" .
> 'apr12:' . '$apr1$' . "\n" .
No objections, including that it may not be available per perlport.
I assume crypt returns undef due to missing functionality?
Just for the record: on what Perl version such warnings observed?
None seen on two different native Perl versions and one from msys.
--
Sergey Kandaurov
_______________________________________________
nginx-devel mailing list
nginx-devel@nginx.org
https://mailman.nginx.org/mailman/listinfo/nginx-devel
