t/90_MANIFEST.t | 9 8 + 1 - 0 !
1 file changed, 8 insertions(+), 1 deletion(-)

 disable manifest test, as this is only interesting for the author, and is
 confused by the debian-perl team git repo.

examples/scanadf-perl | 238 113 + 125 - 0 !
examples/scanimage-perl | 406 195 + 211 - 0 !
2 files changed, 308 insertions(+), 336 deletions(-)

 [patch] replace deprecated given and when operators
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Perl 5.37.11 depracated "given" and "when" keywords and scheduled
them, together with a smart match operator, for removal in Perl 5.42.

This lead to t/81_scanimage-perl.t failures:

    #   Failed test '--device=test --test 2>&1'
    #   at t/81_scanimage-perl.t line 42.
    #          got: 'scanimage: scanning image of size 157x196 pixels at 8 bits/pixel
    # scanimage: acquiring gray frame, 8 bits/sample
    # scanimage: reading one scanline, 157 bytes... PASS
    # scanimage: reading one byte...                PASS
    <...>
    # '
    #     expected: 'given is deprecated at examples/scanimage line 125.
    # when is deprecated at examples/scanimage line 126.
    # when is deprecated at examples/scanimage line 129.
    <...>

This patch rewrites the code not to use "given" and "when".

CPAN RT#148487

Signed-off-by: Petr Psa <ppisar@redhat.com>

Bug: https://rt.cpan.org/Public/Bug/Display.html?id=148487