replace some for and if statements with their postscript forms

1 files changed, 3 insertions, 6 deletions

diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm
index 4b96117..389b6a7 100644
--- a/SBO-Lib/lib/SBO/Lib.pm
+++ b/SBO-Lib/lib/SBO/Lib.pm
@@ -61,9 +61,7 @@ if (-f $conf_file) {
 }
 # undef any invalid $key=$value pairs
 for my $key (keys %config) {
-	unless ($key ~~ @valid_conf_keys) {
-		undef $config{$key};
-	}
+	undef $config{$key} unless $key ~~ @valid_conf_keys;
 }
 # ensure we have sane configs, and defaults for anything not in the conf file
 for my $key (@valid_conf_keys) {
@@ -320,9 +318,8 @@ sub get_sbo_downloads {
 		@md5s = find_download_info ($sbo, $location, 'md5sum', 0);
 	}
 	my @downloads;
-	for my $key (keys @links) {
-		push (@downloads, {link => $links[$key], md5sum => $md5s[$key]} );
-	}
+	push (@downloads, {link => $links[$_], md5sum => $md5s[$_]} )
+		for keys @links;
 	return @downloads;
 }