Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Tomcat42
perl-Image-Sane
Image-Sane-5-Replace-deprecated-given-and-when-...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File Image-Sane-5-Replace-deprecated-given-and-when-operators.patch of Package perl-Image-Sane
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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
