From adf44bcf0863ee1381ea3e2fbda849304141ea9c Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Thu, 7 Jun 2012 00:25:46 -0500 Subject: cleanups and code reduction --- sboupgrade | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'sboupgrade') diff --git a/sboupgrade b/sboupgrade index 315b44a..a7cdef9 100755 --- a/sboupgrade +++ b/sboupgrade @@ -110,8 +110,9 @@ sub grok_requirements { for my $key (keys @deps) { push (@remove, $key) if ($deps[$key] =~ /[\s=]/ || $deps[$key] =~ /^$/); } - if (exists $remove[0]) { - splice (@deps, $_, 1) for @remove; + for my $rem (@remove) { + splice (@deps, $rem, 1); + $_-- for @remove; } return unless exists $deps[0]; FIRST: for my $need (@deps) { -- cgit v1.2.3