File Image-Sane-5-Replace-deprecated-given-and-when-... of Package perl-Image-Sane

Overview Repositories Revisions Requests Users Attributes Meta

File Image-Sane-5-Replace-deprecated-given-and-when-operators.patch of Package perl-Image-Sane (Revision d1ee0b831c589f8f044873f3e03a0ab9)

Currently displaying revision d1ee0b831c589f8f044873f3e03a0ab9 , Show latest

From bfa253f8e185509cd4b63509a58a415b6abc929d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 21 Jun 2023 15:54:40 +0200
Subject: [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 Písař <ppisar@redhat.com>
---
 examples/scanadf-perl   | 238 +++++++++++------------
 examples/scanimage-perl | 406 +++++++++++++++++++---------------------
 2 files changed, 308 insertions(+), 336 deletions(-)

diff --git a/examples/scanadf-perl b/examples/scanadf-perl
index 150aba2..555faac 100644
--- a/examples/scanadf-perl
+++ b/examples/scanadf-perl
@@ -2,8 +2,6 @@
 
 use warnings;
 use strict;
-use feature 'switch';
-no if $] >= 5.018, warnings => 'experimental::smartmatch';
 use Sane;
 use Data::Dumper;
 use Getopt::Long qw(:config no_ignore_case pass_through);
@@ -126,25 +124,23 @@ sub sighandler {
 sub print_unit {
     my ($unit) = @_;
 
-    given ($unit) {
-        when (SANE_UNIT_PIXEL) {
-            printstdout('pel');
-        }
-        when (SANE_UNIT_BIT) {
-            printstdout('bit');
-        }
-        when (SANE_UNIT_MM) {
-            printstdout('mm');
-        }
-        when (SANE_UNIT_DPI) {
-            printstdout('dpi');
-        }
-        when (SANE_UNIT_PERCENT) {
-            printstdout(q{%});
-        }
-        when (SANE_UNIT_MICROSECOND) {
-            printstdout('us');
-        }
+    if ( $unit == SANE_UNIT_PIXEL) {
+        printstdout('pel');
+    }
+    elsif ( $unit == SANE_UNIT_BIT ) {
+        printstdout('bit');
+    }
+    elsif ( $unit == SANE_UNIT_MM ) {
+        printstdout('mm');
+    }
+    elsif ( $unit == SANE_UNIT_DPI ) {
+        printstdout('dpi');
+    }
+    elsif ( $unit == SANE_UNIT_PERCENT ) {
+        printstdout(q{%});
+    }
+    elsif ( $unit == SANE_UNIT_MICROSECOND) {
+        printstdout('us');
     }
     return;
 }
@@ -283,28 +279,26 @@ sub print_current_option_value {
             {
                 my $string_format = '%g';
                 if ( $opt->{type} == SANE_TYPE_INT ) { $string_format = '%d' }
-                given ( $opt->{name} ) {
-                    when (SANE_NAME_SCAN_TL_X) {
-                        $tl_x = $val;
-                        printf $string_format, $tl_x;
-                    }
-                    when (SANE_NAME_SCAN_TL_Y) {
-                        $tl_y = $val;
-                        printf $string_format, $tl_y;
-                    }
-                    when (SANE_NAME_SCAN_BR_X) {
-                        $br_x = $val;
-                        $w_x  = $br_x - $tl_x;
-                        printf $string_format, $w_x;
-                    }
-                    when (SANE_NAME_SCAN_BR_Y) {
-                        $br_y = $val;
-                        $h_y  = $br_y - $tl_y;
-                        printf $string_format, $h_y;
-                    }
-                    default {
-                        printf $string_format, $val;
-                    }
+                if ( $opt->{name} eq SANE_NAME_SCAN_TL_X ) {
+                    $tl_x = $val;
+                    printf $string_format, $tl_x;
+                }
+                elsif ( $opt->{name} eq SANE_NAME_SCAN_TL_Y ) {
+                    $tl_y = $val;
+                    printf $string_format, $tl_y;
+                }
+                elsif ( $opt->{name} eq SANE_NAME_SCAN_BR_X ) {
+                    $br_x = $val;
+                    $w_x  = $br_x - $tl_x;
+                    printf $string_format, $w_x;
+                }
+                elsif ( $opt->{name} eq SANE_NAME_SCAN_BR_Y) {
+                    $br_y = $val;
+                    $h_y  = $br_y - $tl_y;
+                    printf $string_format, $h_y;
+                }
+                else {
+                    printf $string_format, $val;
                 }
             }
             elsif ( $opt->{type} == SANE_TYPE_STRING ) {
@@ -508,34 +502,32 @@ sub update_geometry {
         and ( $opt->{unit} == SANE_UNIT_MM || $opt->{unit} == SANE_UNIT_PIXEL )
       )
     {
-        given ( $opt->{name} ) {
-            when (SANE_NAME_SCAN_TL_X) {
-                $window[2] = $i;
-                $opt->{name} = 'l';
-            }
-            when (SANE_NAME_SCAN_TL_Y) {
-                $window[3] = $i;      ## no critic (ProhibitMagicNumbers)
-                $opt->{name} = 't';
-            }
-            when (SANE_NAME_SCAN_BR_X) {
-                $window[0]                 = $i;
-                $opt->{name}               = 'x';
-                $window_option[0]          = $opt;
-                $window_option[0]->{title} = 'Scan width';
-                $window_option[0]->{desc}  = 'Width of scanning area.';
-                if ( !$window_val_user[0] ) {
-                    $window_val[0] = $device->get_option($i);
-                }
+        if ( $opt->{name} eq SANE_NAME_SCAN_TL_X ) {
+            $window[2] = $i;
+            $opt->{name} = 'l';
+        }
+        elsif ( $opt->{name} eq SANE_NAME_SCAN_TL_Y ) {
+            $window[3] = $i;      ## no critic (ProhibitMagicNumbers)
+            $opt->{name} = 't';
+        }
+        elsif ( $opt->{name} eq SANE_NAME_SCAN_BR_X ) {
+            $window[0]                 = $i;
+            $opt->{name}               = 'x';
+            $window_option[0]          = $opt;
+            $window_option[0]->{title} = 'Scan width';
+            $window_option[0]->{desc}  = 'Width of scanning area.';
+            if ( !$window_val_user[0] ) {
+                $window_val[0] = $device->get_option($i);
             }
-            when (SANE_NAME_SCAN_BR_Y) {
-                $window[1]                 = $i;
-                $opt->{name}               = 'y';
-                $window_option[1]          = $opt;
-                $window_option[1]->{title} = 'Scan height';
-                $window_option[1]->{desc}  = 'Height of scanning area.';
-                if ( !$window_val_user[1] ) {
-                    $window_val[1] = $device->get_option($i);
-                }
+        }
+        elsif ( $opt->{name} eq SANE_NAME_SCAN_BR_Y ) {
+            $window[1]                 = $i;
+            $opt->{name}               = 'y';
+            $window_option[1]          = $opt;
+            $window_option[1]->{title} = 'Scan height';
+            $window_option[1]->{desc}  = 'Height of scanning area.';
+            if ( !$window_val_user[1] ) {
+                $window_val[1] = $device->get_option($i);
             }
         }
     }
@@ -604,40 +596,38 @@ sub process_backend_option {
     }
 
     my $value;
-    given ( $opt->{type} ) {
-        when (SANE_TYPE_BOOL) {
-            $value = 1;    # no argument means option is set
-            if ($optarg) {
-                if ( $optarg =~ /^yes$/ixsm ) {
-                    $value = 1;
-                }
-                elsif ( $optarg =~ /^no$/ixsm ) {
-                    $value = 0;
-                }
-                else {
-                    die
+    if ( $opt->{type} == SANE_TYPE_BOOL ) {
+        $value = 1;    # no argument means option is set
+        if ($optarg) {
+            if ( $optarg =~ /^yes$/ixsm ) {
+                $value = 1;
+            }
+            elsif ( $optarg =~ /^no$/ixsm ) {
+                $value = 0;
+            }
+            else {
+                die
 "$prog_name: option --$opt->{name}: bad option value `$optarg'\n";
-                }
             }
         }
-        when (
-                 $opt->{type} == SANE_TYPE_INT
-              or $opt->{type} == SANE_TYPE_FIXED
-          )
-        {
-            my @vector = parse_vector( $opt, $optarg );
-            $value = \@vector;
-        }
-        when (SANE_TYPE_STRING) {
-            $value = $optarg;
-        }
-        when (SANE_TYPE_BUTTON) {
-            $value = 0;    # value doesn't matter
-        }
-        default {
-            warn "$prog_name: duh, got unknown option type $opt->{type}\n";
-            return;
-        }
+    }
+    elsif (
+             $opt->{type} == SANE_TYPE_INT
+          or $opt->{type} == SANE_TYPE_FIXED
+      )
+    {
+        my @vector = parse_vector( $opt, $optarg );
+        $value = \@vector;
+    }
+    elsif ( $opt->{type} == SANE_TYPE_STRING ) {
+        $value = $optarg;
+    }
+    elsif ( $opt->{type} == SANE_TYPE_BUTTON ) {
+        $value = 0;    # value doesn't matter
+    }
+    else {
+        warn "$prog_name: duh, got unknown option type $opt->{type}\n";
+        return;
     }
     set_option( $device, $optnum, $value );
     return;
@@ -1050,30 +1040,28 @@ sub process_arguments {
             next;
         }
         if ( defined $options{$ch} ) {
-            given ($ch) {
-                when ('x') {
-                    $window_val_user[0] = 1;
-                    ( $window_val[0] ) =
-                      parse_vector( $window_option[0], $options{x} );
-                }
-                when ('y') {
-                    $window_val_user[1] = 1;
-                    ( $window_val[1] ) =
-                      parse_vector( $window_option[1], $options{y} );
-                }
-                when ('l') {    # tl-x
-                    process_backend_option( $device, $window[2], $options{l} );
-                }
-                when ('t') {    # tl-y
-                    process_backend_option(
-                        $device, $window[3], ## no critic (ProhibitMagicNumbers)
-                        $options{t}
-                    );
-                }
-                default {
-                    process_backend_option( $device, $option_number{$ch},
-                        $options{$ch} );
-                }
+            if ( $ch eq 'x' ) {
+                $window_val_user[0] = 1;
+                ( $window_val[0] ) =
+                  parse_vector( $window_option[0], $options{x} );
+            }
+            elsif ( $ch eq 'y' ) {
+                $window_val_user[1] = 1;
+                ( $window_val[1] ) =
+                  parse_vector( $window_option[1], $options{y} );
+            }
+            elsif ( $ch eq 'l' ) {    # tl-x
+                process_backend_option( $device, $window[2], $options{l} );
+            }
+            elsif ( $ch eq 't' ) {    # tl-y
+                process_backend_option(
+                    $device, $window[3], ## no critic (ProhibitMagicNumbers)
+                    $options{t}
+                );
+            }
+            else {
+                process_backend_option( $device, $option_number{$ch},
+                    $options{$ch} );
             }
         }
     }
diff --git a/examples/scanimage-perl b/examples/scanimage-perl
index 0579a4a..ff6999f 100644
--- a/examples/scanimage-perl
+++ b/examples/scanimage-perl
@@ -2,14 +2,12 @@
 
 use warnings;
 use strict;
-use feature 'switch';
 use Image::Sane ':all';
 use Try::Tiny;
 use Getopt::Long qw(:config no_ignore_case pass_through);
 use File::Basename;
 use IO::Handle;
 use English qw( -no_match_vars );    # for $PROGRAM_NAME
-no if $] >= 5.018, warnings => 'experimental::smartmatch';
 use sigtrap qw/handler sighandler normal-signals/;
 use Readonly;
 Readonly my $BUFFER_SIZE   => ( 32 * 1024 );     # default size
@@ -122,25 +120,23 @@ sub sighandler {
 sub print_unit {
     my ($unit) = @_;
 
-    given ($unit) {
-        when (SANE_UNIT_PIXEL) {
-            printstdout('pel');
-        }
-        when (SANE_UNIT_BIT) {
-            printstdout('bit');
-        }
-        when (SANE_UNIT_MM) {
-            printstdout('mm');
-        }
-        when (SANE_UNIT_DPI) {
-            printstdout('dpi');
-        }
-        when (SANE_UNIT_PERCENT) {
-            printstdout(q{%});
-        }
-        when (SANE_UNIT_MICROSECOND) {
-            printstdout('us');
-        }
+    if ($unit == SANE_UNIT_PIXEL) {
+        printstdout('pel');
+    }
+    elsif ($unit == SANE_UNIT_BIT) {
+        printstdout('bit');
+    }
+    elsif ($unit == SANE_UNIT_MM) {
+        printstdout('mm');
+    }
+    elsif ($unit == SANE_UNIT_DPI) {
+        printstdout('dpi');
+    }
+    elsif ($unit == SANE_UNIT_PERCENT) {
+        printstdout(q{%});
+    }
+    elsif ($unit == SANE_UNIT_MICROSECOND) {
+        printstdout('us');
     }
     return;
 }
@@ -243,69 +239,67 @@ sub print_option {
 
 sub print_option_choices {
     my ($opt) = @_;
-    given ( $opt->{type} ) {
-        when (SANE_TYPE_BOOL) {
-            printstdout('[=(');
-            if ( $opt->{cap} & SANE_CAP_AUTOMATIC ) { printstdout('auto|') }
-            printstdout('yes|no)]');
-        }
-        when (SANE_TYPE_BUTTON) { }
-        default {
-            printstdout($SPACE);
-            if ( $opt->{cap} & SANE_CAP_AUTOMATIC ) {
-                printstdout('auto|');
+    if ( $opt->{type} == SANE_TYPE_BOOL ) {
+        printstdout('[=(');
+        if ( $opt->{cap} & SANE_CAP_AUTOMATIC ) { printstdout('auto|') }
+        printstdout('yes|no)]');
+    }
+    elsif ( $opt->{type} == SANE_TYPE_BUTTON ) {
+    }
+    else {
+        printstdout($SPACE);
+        if ( $opt->{cap} & SANE_CAP_AUTOMATIC ) {
+            printstdout('auto|');
+        }
+        if ( $opt->{constraint_type} == SANE_CONSTRAINT_NONE ) {
+            if ( $opt->{type} == SANE_TYPE_INT ) {
+                printstdout('<int>');
             }
-            given ( $opt->{constraint_type} ) {
-                when (SANE_CONSTRAINT_NONE) {
-                    if ( $opt->{type} == SANE_TYPE_INT ) {
-                        printstdout('<int>');
-                    }
-                    elsif ( $opt->{type} == SANE_TYPE_FIXED ) {
-                        printstdout('<float>');
-                    }
-                    elsif ( $opt->{type} == SANE_TYPE_STRING ) {
-                        printstdout('<string>');
-                    }
-                    if ( $opt->{max_values} > 1 ) { printstdout(',...') }
-                }
-                when (SANE_CONSTRAINT_RANGE) {
-                    my $string_format = '%g..%g';
-                    if ( $opt->{type} == SANE_TYPE_INT ) {
-                        $string_format = '%d..%d';
-                    }
-                    if ( $opt->{name} eq 'x' ) {
-                        printf $string_format, $opt->{constraint}{min},
-                          $opt->{constraint}{max} - $tl_x;
-                    }
-                    elsif ( $opt->{name} eq 'y' ) {
-                        printf $string_format, $opt->{constraint}{min},
-                          $opt->{constraint}{max} - $tl_y;
-                    }
-                    else {
-                        printf $string_format, $opt->{constraint}{min},
-                          $opt->{constraint}{max};
-                    }
-                    print_unit( $opt->{unit} );
-                    if ( $opt->{max_values} > 1 ) { printstdout(',...') }
-                    if ( $opt->{constraint}{quant} ) {
-                        printstdout(" (in steps of $opt->{constraint}{quant})");
-                    }
-                }
-                when ( SANE_CONSTRAINT_STRING_LIST | SANE_CONSTRAINT_WORD_LIST )
-                {
-                    for my $i ( 0 .. $#{ $opt->{constraint} } ) {
-                        if ( $i > 0 ) { printstdout(q{|}) }
-                        my $string_format =
-                          $opt->{type} == SANE_TYPE_FIXED ? '%g' : '%s';
+            elsif ( $opt->{type} == SANE_TYPE_FIXED ) {
+                printstdout('<float>');
+            }
+            elsif ( $opt->{type} == SANE_TYPE_STRING ) {
+                printstdout('<string>');
+            }
+            if ( $opt->{max_values} > 1 ) { printstdout(',...') }
+        }
+        elsif ( $opt->{constraint_type} == SANE_CONSTRAINT_RANGE ) {
+            my $string_format = '%g..%g';
+            if ( $opt->{type} == SANE_TYPE_INT ) {
+                $string_format = '%d..%d';
+            }
+            if ( $opt->{name} eq 'x' ) {
+                printf $string_format, $opt->{constraint}{min},
+                  $opt->{constraint}{max} - $tl_x;
+            }
+            elsif ( $opt->{name} eq 'y' ) {
+                printf $string_format, $opt->{constraint}{min},
+                  $opt->{constraint}{max} - $tl_y;
+            }
+            else {
+                printf $string_format, $opt->{constraint}{min},
+                  $opt->{constraint}{max};
+            }
+            print_unit( $opt->{unit} );
+            if ( $opt->{max_values} > 1 ) { printstdout(',...') }
+            if ( $opt->{constraint}{quant} ) {
+                printstdout(" (in steps of $opt->{constraint}{quant})");
+            }
+        }
+        elsif ( $opt->{constraint_type} == SANE_CONSTRAINT_STRING_LIST ||
+                $opt->{constraint_type} == SANE_CONSTRAINT_WORD_LIST )
+        {
+            for my $i ( 0 .. $#{ $opt->{constraint} } ) {
+                if ( $i > 0 ) { printstdout(q{|}) }
+                my $string_format =
+                  $opt->{type} == SANE_TYPE_FIXED ? '%g' : '%s';
 
-                        printf $string_format, $opt->{constraint}[$i];
-                    }
-                    if ( $opt->{constraint_type} == SANE_CONSTRAINT_WORD_LIST )
-                    {
-                        print_unit( $opt->{unit} );
-                        if ( $opt->{max_values} > 1 ) { printstdout(',...') }
-                    }
-                }
+                printf $string_format, $opt->{constraint}[$i];
+            }
+            if ( $opt->{constraint_type} == SANE_CONSTRAINT_WORD_LIST )
+            {
+                print_unit( $opt->{unit} );
+                if ( $opt->{max_values} > 1 ) { printstdout(',...') }
             }
         }
     }
@@ -326,26 +320,24 @@ sub print_current_option_value {
             {
                 my $string_format = '%g';
                 if ( $opt->{type} == SANE_TYPE_INT ) { $string_format = '%d' }
-                given ( $opt->{name} ) {
-                    when ('l') {
-                        $tl_x = $val;
-                        printf $string_format, $tl_x;
-                    }
-                    when ('t') {
-                        $tl_y = $val;
-                        printf $string_format, $tl_y;
-                    }
-                    when ('x') {
-                        $br_x = $val;
-                        printf $string_format, $br_x - $tl_x;
-                    }
-                    when ('y') {
-                        $br_y = $val;
-                        printf $string_format, $br_y - $tl_y;
-                    }
-                    default {
-                        printf $string_format, $val;
-                    }
+                if ( $opt->{name} eq 'l' ) {
+                    $tl_x = $val;
+                    printf $string_format, $tl_x;
+                }
+                elsif ( $opt->{name} eq 't' ) {
+                    $tl_y = $val;
+                    printf $string_format, $tl_y;
+                }
+                elsif ( $opt->{name} eq 'x' ) {
+                    $br_x = $val;
+                    printf $string_format, $br_x - $tl_x;
+                }
+                elsif ( $opt->{name} eq 'y' ) {
+                    $br_y = $val;
+                    printf $string_format, $br_y - $tl_y;
+                }
+                else {
+                    printf $string_format, $val;
                 }
             }
             elsif ( $opt->{type} == SANE_TYPE_STRING ) {
@@ -562,33 +554,31 @@ sub update_geometry {
         and ( $opt->{unit} == SANE_UNIT_MM or $opt->{unit} == SANE_UNIT_PIXEL )
       )
     {
-        given ( $opt->{name} ) {
-            when (SANE_NAME_SCAN_BR_X) {
-                $window[0]                 = $i;
-                $opt->{name}               = 'x';
-                $window_option[0]          = $opt;
-                $window_option[0]->{title} = 'Scan width';
-                $window_option[0]->{desc}  = 'Width of scan-area.';
-                $window_option[0]->{name}  = 'x';
-            }
-            when (SANE_NAME_SCAN_BR_Y) {
-                $window[1]                 = $i;
-                $opt->{name}               = 'y';
-                $window_option[1]          = $opt;
-                $window_option[1]->{title} = 'Scan height';
-                $window_option[1]->{desc}  = 'Height of scan-area.';
-                $window_option[1]->{name}  = 'y';
-            }
-            when (SANE_NAME_SCAN_TL_X) {
-                $window[2]                = $i;
-                $window_option[2]         = $opt;
-                $window_option[2]->{name} = 'l';
-            }
-            when (SANE_NAME_SCAN_TL_Y) {
-                $window[$I_TL_Y]                = $i;
-                $window_option[$I_TL_Y]         = $opt;
-                $window_option[$I_TL_Y]->{name} = 't';
-            }
+        if ( $opt->{name} eq SANE_NAME_SCAN_BR_X ) {
+            $window[0]                 = $i;
+            $opt->{name}               = 'x';
+            $window_option[0]          = $opt;
+            $window_option[0]->{title} = 'Scan width';
+            $window_option[0]->{desc}  = 'Width of scan-area.';
+            $window_option[0]->{name}  = 'x';
+        }
+        elsif ( $opt->{name} eq SANE_NAME_SCAN_BR_Y ) {
+            $window[1]                 = $i;
+            $opt->{name}               = 'y';
+            $window_option[1]          = $opt;
+            $window_option[1]->{title} = 'Scan height';
+            $window_option[1]->{desc}  = 'Height of scan-area.';
+            $window_option[1]->{name}  = 'y';
+        }
+        elsif ( $opt->{name} eq SANE_NAME_SCAN_TL_X ) {
+            $window[2]                = $i;
+            $window_option[2]         = $opt;
+            $window_option[2]->{name} = 'l';
+        }
+        elsif ( $opt->{name} eq SANE_NAME_SCAN_TL_Y ) {
+            $window[$I_TL_Y]                = $i;
+            $window_option[$I_TL_Y]         = $opt;
+            $window_option[$I_TL_Y]->{name} = 't';
         }
     }
     return;
@@ -663,40 +653,38 @@ sub process_backend_option {
     }
 
     my $value;
-    given ( $opt->{type} ) {
-        when (SANE_TYPE_BOOL) {
-            $value = 1;    # no argument means option is set
-            if ($optarg) {
-                if ( $optarg =~ /^yes$/xsmi ) {
-                    $value = 1;
-                }
-                elsif ( $optarg =~ /^no$/xsmi ) {
-                    $value = 0;
-                }
-                else {
-                    die
+    if ( $opt->{type} == SANE_TYPE_BOOL ) {
+        $value = 1;    # no argument means option is set
+        if ($optarg) {
+            if ( $optarg =~ /^yes$/xsmi ) {
+                $value = 1;
+            }
+            elsif ( $optarg =~ /^no$/xsmi ) {
+                $value = 0;
+            }
+            else {
+                die
 "$prog_name: option --$opt->{name}: bad option value `$optarg'\n";
-                }
             }
         }
-        when (
-                 $opt->{type} == SANE_TYPE_INT
-              or $opt->{type} == SANE_TYPE_FIXED
-          )
-        {
-            my @vector = parse_vector( $opt, $optarg );
-            $value = \@vector;
-        }
-        when (SANE_TYPE_STRING) {
-            $value = $optarg;
-        }
-        when (SANE_TYPE_BUTTON) {
-            $value = 0;    # value doesn't matter
-        }
-        default {
-            warn "$prog_name: duh, got unknown option type $opt->{type}\n";
-            return;
-        }
+    }
+    elsif (
+             $opt->{type} == SANE_TYPE_INT
+          or $opt->{type} == SANE_TYPE_FIXED
+      )
+    {
+        my @vector = parse_vector( $opt, $optarg );
+        $value = \@vector;
+    }
+    elsif ( $opt->{type} == SANE_TYPE_STRING ) {
+        $value = $optarg;
+    }
+    elsif ( $opt->{type} == SANE_TYPE_BUTTON) {
+        $value = 0;    # value doesn't matter
+    }
+    else {
+        warn "$prog_name: duh, got unknown option type $opt->{type}\n";
+        return;
     }
     set_option( $device, $optnum, $value );
     return;
@@ -1149,29 +1137,19 @@ sub scan_pages {
             printstderr( sprintf " (scanner status = %d)\n", $status );
         }
 
-        given ($status) {
-            when (SANE_STATUS_EOF) {
-                if ($batch) {
-
-                   # close output file by redirecting, do not close stdout here!
-                    if (
-                        open $fh, '>',    ## no critic (RequireBriefOpen)
-                        '/dev/null' and STDOUT->fdopen( $fh, '>' )
-                      )
-                    {
-
-                        # let the fully scanned file show up
-                        if ( not rename $part_path, $path ) {
-                            printstderr("cannot rename $part_path to $path\n");
-                            try {
-                                $device->cancel;
-                            }
-                            catch {};
-                            return SANE_STATUS_ACCESS_DENIED;
-                        }
-                    }
-                    else {
-                        printstderr("cannot open /dev/null\n");
+        if ( $status == SANE_STATUS_EOF ) {
+            if ($batch) {
+
+               # close output file by redirecting, do not close stdout here!
+                if (
+                    open $fh, '>',    ## no critic (RequireBriefOpen)
+                    '/dev/null' and STDOUT->fdopen( $fh, '>' )
+                  )
+                {
+
+                    # let the fully scanned file show up
+                    if ( not rename $part_path, $path ) {
+                        printstderr("cannot rename $part_path to $path\n");
                         try {
                             $device->cancel;
                         }
@@ -1179,15 +1157,23 @@ sub scan_pages {
                         return SANE_STATUS_ACCESS_DENIED;
                     }
                 }
-            }
-            when (SANE_STATUS_GOOD) {
-                if ($batch) {
-                    close $fh or warn "cannot close file\n";
-                    unlink $part_path;
+                else {
+                    printstderr("cannot open /dev/null\n");
+                    try {
+                        $device->cancel;
+                    }
+                    catch {};
+                    return SANE_STATUS_ACCESS_DENIED;
                 }
-                last;
             }
         }
+        elsif ( $status == SANE_STATUS_GOOD ) {
+            if ($batch) {
+                close $fh or warn "cannot close file\n";
+                unlink $part_path;
+            }
+            last;
+        }
         $n += $batch_increment;
 
         if ( not ok_for_next_page() ) { last }
@@ -1422,28 +1408,26 @@ sub process_arguments {
             next;
         }
         if ( defined $options{$ch} ) {
-            given ($ch) {
-                when ('x') {
-                    $window_val_user[0] = 1;
-                    ( $window_val[0] ) =
-                      parse_vector( $window_option[0], $options{x} );
-                }
-                when ('y') {
-                    $window_val_user[1] = 1;
-                    ( $window_val[1] ) =
-                      parse_vector( $window_option[1], $options{y} );
-                }
-                when ('l') {    # tl-x
-                    process_backend_option( $device, $window[2], $options{l} );
-                }
-                when ('t') {    # tl-y
-                    process_backend_option( $device, $window[$I_TL_Y],
-                        $options{t} );
-                }
-                default {
-                    process_backend_option( $device, $option_number{$ch},
-                        $options{$ch} );
-                }
+            if ( $ch eq 'x' ) {
+                $window_val_user[0] = 1;
+                ( $window_val[0] ) =
+                  parse_vector( $window_option[0], $options{x} );
+            }
+            elsif ( $ch eq 'y' ) {
+                $window_val_user[1] = 1;
+                ( $window_val[1] ) =
+                  parse_vector( $window_option[1], $options{y} );
+            }
+            elsif ( $ch eq 'l') {    # tl-x
+                process_backend_option( $device, $window[2], $options{l} );
+            }
+            elsif ( $ch eq 't') {    # tl-y
+                process_backend_option( $device, $window[$I_TL_Y],
+                    $options{t} );
+            }
+            else {
+                process_backend_option( $device, $option_number{$ch},
+                    $options{$ch} );
             }
         }
     }
-- 
2.41.0

Places

File Image-Sane-5-Replace-deprecated-given-and-when-operators.patch of Package perl-Image-Sane (Revision d1ee0b831c589f8f044873f3e03a0ab9)

Places