1 files changed, 3 insertions, 3 deletions
diff --git a/sboclean b/sboclean
index 550658d..61d0ce6 100755
--- a/sboclean
+++ b/sboclean
@@ -9,6 +9,7 @@
 # date: Boomtime, the 6th day of Confusion in the YOLD 3178
 # license: WTFPL <http://sam.zoy.org/wtfpl/COPYING>
 
+use 5.12.3;
 use SBO::Lib;
 use File::Basename;
 use Getopt::Std;
@@ -43,12 +44,11 @@ my $clean_work = exists $options{w} ? 1 : 0;
 my $interactive = exists $options{i} ? 1 : 0;
 
 unless ($clean_dist || $clean_work) {
-	show_usage;
-	die "You must specify at least one of -d or -w.\n";
+	show_usage, die "You must specify at least one of -d or -w.\n";
 }
 
 sub remove_stuff ($) {
-	exists $_[0] or script_error ('remove_stuff requires an argument');
+	exists $_[0] or script_error 'remove_stuff requires an argument';
 	-d $_[0] or say "Nothing to do." and return 1;
 	my $dir = shift;
 	opendir (my $dh, $dir);