resolve items marked TODO

1 files changed, 8 insertions, 10 deletions

diff --git a/sboremove b/sboremove
index 95bd935..0aa0fb8 100755
--- a/sboremove
+++ b/sboremove
@@ -61,14 +61,6 @@ for my $sbo (@ARGV) {
 }
 exit 1 unless exists $sbos[0];
 
-# # wrapper to pull the list of requirements for a given sbo
-# sub get_requires ($) {
-# 	my $location = get_sbo_location(shift);
-# 	return unless $location;
-# 	my $info = get_from_info(LOCATION => $location, GET => 'REQUIRES');
-# 	return $$info[0] ne '' ? $info : undef;
-# }
-
 # Create full queue. 
 my ($remove_queue, %warnings);
 for my $sbo (@sbos) {
@@ -156,8 +148,14 @@ FIRST: for my $remove (@$remove_queue) {
 	if ( "%README%" ~~ @reqz ) {
 		say "It is recommended that you view the README before continuing.";
 		print "Display README now? [y]: ";
-		my $readme = get_readme_contents get_sbo_location($remove);
-		print "\n" . $readme if <STDIN> =~ /^[Yy\n]/;
+		if (<STDIN> =~ /^[Yy\n]/) {
+			my ($readme, $exit) = get_readme_contents get_sbo_location($remove);
+			if ($exit) {
+				warn "Unable to open README for $remove.\n";
+			} else {
+				print "\n" . $readme;
+			}
+		}
 	}
 
 	# Determine default behavior for prompt