use array length instead of last item index

lexming · lexming · commit b5376931bbc6 · 2022-09-13T00:59:53.000+02:00
diff --git a/ncm-spma/src/main/perl/spma/yum.pm b/ncm-spma/src/main/perl/spma/yum.pm
@@ -907,7 +907,7 @@ sub update_pkgs
         $to_rm = $self->packages_to_remove($wanted);
         defined($to_rm) or return 0;
         $self->spare_dependencies($to_rm, $to_install, $error_is_warn);
-        if($#$to_rm > 0){
+        if (scalar(@$to_rm) > 0) {
             $tx = $self->schedule(REMOVE, $to_rm);
         }
     }

Original file line number	Diff line number	Diff line change
`@@ -907,7 +907,7 @@ sub update_pkgs`
`907`	`907`	`$to_rm = $self->packages_to_remove($wanted);`
`908`	`908`	`defined($to_rm) or return 0;`
`909`	`909`	`$self->spare_dependencies($to_rm, $to_install, $error_is_warn);`
`910`		`- if($#$to_rm > 0){`
	`910`	`+ if (scalar(@$to_rm) > 0) {`
`911`	`911`	`$tx = $self->schedule(REMOVE, $to_rm);`
`912`	`912`	`}`
`913`	`913`	`}`