From f46f97612dc1d9b040b17e06eaffcb7dd5aeba06 Mon Sep 17 00:00:00 2001
From: xocel <xocel@iquidus.org>
Date: Sun, 13 Jan 2013 22:04:11 +1300
Subject: removed req_store. warnings{sbo} equals %README% if readme is
 required

---
 sboremove | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/sboremove b/sboremove
index 0aa0fb8..838ec8b 100755
--- a/sboremove
+++ b/sboremove
@@ -69,10 +69,6 @@ for my $sbo (@sbos) {
     $remove_queue = merge_queues($remove_queue, $queue);
 }
 
-# Read requires for each item in queue (needed for later on, %README% etc)
-my %req_store;
-$req_store{$_} = get_requires $_ for @$remove_queue;
-
 # Determine required by for all installed sbo's
 my (%required_by, @confirmed);
 
@@ -144,8 +140,7 @@ FIRST: for my $remove (@$remove_queue) {
 	}
 
 	# Check for %README% value and inform user.
-	my @reqz = $req_store{$remove};
-	if ( "%README%" ~~ @reqz ) {
+	if ( $warnings{$remove} ) { 
 		say "It is recommended that you view the README before continuing.";
 		print "Display README now? [y]: ";
 		if (<STDIN> =~ /^[Yy\n]/) {
-- 
cgit v1.2.3