From 1c4a8fbc78986fb2de27f86ac8b06aa4d87cd8f3 Mon Sep 17 00:00:00 2001
From: J Pipkin <j@dawnrazor.net>
Date: Mon, 31 Dec 2012 03:40:56 -0600
Subject: elide space between function names and any following open parentheses

---
 sboclean | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'sboclean')

diff --git a/sboclean b/sboclean
index dd3ec46..9ed15f6 100755
--- a/sboclean
+++ b/sboclean
@@ -17,9 +17,9 @@ use File::Basename;
 use Getopt::Long qw(:config bundling);
 use File::Path qw(remove_tree);
 
-my $self = basename ($0);
+my $self = basename($0);
 
-sub show_usage () {
+sub show_usage() {
 	print <<EOF
 Usage: $self (options) [package]
 
@@ -40,7 +40,7 @@ EOF
 
 my ($help, $vers, $clean_dist, $clean_work, $interactive);
 
-GetOptions (
+GetOptions(
 	'help|h'		=> \$help,
 	'version|v'		=> \$vers,
 	'clean-dist|d'	=> \$clean_dist,
@@ -54,11 +54,11 @@ show_version and exit 0 if $vers;
 show_usage, die "You must specify at least one of -d or -w.\n" unless
 	($clean_dist || $clean_work);
 
-sub remove_stuff ($) {
+sub remove_stuff($) {
 	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);
+	opendir(my $dh, $dir);
 	FIRST: while (my $ls = readdir $dh) {
 		next FIRST if $ls =~ /^(\.){1,2}$/;
 		my $full = "$dir/$ls";
@@ -67,7 +67,7 @@ sub remove_stuff ($) {
 			next FIRST unless <STDIN> =~ /^[Yy]/;
 		}
 		unlink $full if -f $full;
-		remove_tree ($full) if -d $full;
+		remove_tree($full) if -d $full;
 	}
 }
 
-- 
cgit v1.2.3