diff options
author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-14 04:04:34 +0100 |
---|---|---|
committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-14 04:04:34 +0100 |
commit | 12ab108ac9be2fd27700ca2f92b2a73f04ac4803 (patch) | |
tree | d039751c0d102b467dd5c59a5047867a9e28c2e6 /sboremove | |
parent | eaa18fd91c51c136ff6ec607d46d32b87a2ea34f (diff) | |
download | sbotools2-12ab108ac9be2fd27700ca2f92b2a73f04ac4803.tar.xz |
Additional Perl::Critic::Freenode fixes, and one missed prototype
Diffstat (limited to 'sboremove')
-rwxr-xr-x | sboremove | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -75,7 +75,7 @@ for my $sbo (@sbos) { my (%required_by, @confirmed); # populates the required_by hash -sub get_reverse_reqs($) { +sub get_reverse_reqs { my $installed = shift; FIRST: for my $inst (@$installed) { my $require = get_requires($inst); @@ -160,7 +160,7 @@ FIRST: for my $remove (@$remove_queue) { say "It is recommended that you view the README before continuing."; print "Display README now? [y]: "; if (<STDIN> =~ /^[Yy\n]/) { - my ($readme, $exit) = get_readme_contents get_sbo_location($remove); + my ($readme, $exit) = get_readme_contents(get_sbo_location($remove)); if ($exit) { warn "Unable to open README for $remove.\n"; } else { |