Additional Perl::Critic::Freenode fixes, and one missed prototype

1 files changed, 1 insertions, 1 deletions

diff --git a/sboclean b/sboclean
index 0883bb2..39c93e1 100755
--- a/sboclean
+++ b/sboclean
@@ -59,7 +59,7 @@ sub rm_full {
 	my $full = shift;
 	if ($interactive) {
 		print "Remove $full? [n] ";
-		return unless <STDIN> =~ /^[Yy]/;
+		return() unless <STDIN> =~ /^[Yy]/;
 	}
 	unlink $full if -f $full;
 	remove_tree($full) if -d $full;