Debug-Client-0.31: Error: given is deprecated at ... on Strawberry Perl 3.38.0

[twata1]

Hello,

Running Strawberry Perl 5.38.0, I noticed the following message.

C:\home\skyfish>cpan MANWAR/Debug-Client-0.31.tar.gz

(snip)

t/00-report-prereqs.t .. ok

#   Failed test 'use Debug::Client;'
#   at t/01-compile.t line 10.
#     Tried to use 'Debug::Client'.
#     Error:  given is deprecated at C:\strawberry-perl-5.38.0.1-64bit-portable\cpan\build\Debug-Client-0.31-1\blib\lib/Debug/Client.pm line 237.
# Compilation failed in require at t/01-compile.t line 10.
# BEGIN failed--compilation aborted at t/01-compile.t line 10.
Use of uninitialized value $Debug::Client::VERSION in concatenation (.) or string at t/01-compile.t line 32.
# Looks like your test exited with 255 just after 18.
t/01-compile.t .........
Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 1/18 subtests

#   Failed test 'use Debug::Client;'
#   at t/02-exports.t line 10.
#     Tried to use 'Debug::Client'.
#     Error:  given is deprecated at C:\strawberry-perl-5.38.0.1-64bit-portable\cpan\build\Debug-Client-0.31-1\blib\lib/Debug/Client.pm line 237.
# Compilation failed in require at t/02-exports.t line 10.
# BEGIN failed--compilation aborted at t/02-exports.t line 10.

#   Failed test 'Debug::Client->can(...)'
#   at t/02-exports.t line 24.
#     Debug::Client->can('get_filename') failed
#     Debug::Client->can('get') failed
#     Debug::Client->can('get_h_var') failed
#     Debug::Client->can('get_options') failed
#     Debug::Client->can('get_p_exp') failed
#     Debug::Client->can('get_v_vars') failed
#     Debug::Client->can('get_value') failed
#     Debug::Client->can('get_x_vars') failed
#     Debug::Client->can('get_y_zero') failed
#     Debug::Client->can('module') failed
#     Debug::Client->can('remove_breakpoint') failed
#     Debug::Client->can('get_row') failed
#     Debug::Client->can('set_breakpoint') failed
#     Debug::Client->can('set_option') failed
#     Debug::Client->can('show_breakpoints') failed
# Looks like you failed 2 tests of 2.
t/02-exports.t .........
Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/2 subtests
t/03-pod.t ............. skipped: Author tests, not required for installation.
t/04-pod-coverage.t .... skipped: Author tests, not required for installation.

(snip)

Thank you,

[szabgab]

thanks for reporting

[viy2]

patch for given ... when

[viy2]

perl-Debug-Client-0.31-perl5.38-no-given-when.patch.gz