diff options
Diffstat (limited to 'sboremove')
| -rwxr-xr-x | sboremove | 18 |
1 files changed, 8 insertions, 10 deletions
@@ -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 |