aboutsummaryrefslogtreecommitdiff
path: root/t/prep.pl
diff options
context:
space:
mode:
authorAndreas Guldstrand <andreas.guldstrand@gmail.com>2015-11-14 07:29:39 +0100
committerAndreas Guldstrand <andreas.guldstrand@gmail.com>2015-11-14 07:29:39 +0100
commita7f24d7ce17888f1d6ac5ee0abfd226f0470047a (patch)
tree205ee8b240c10a8d3b794f303a2eb9e874891ede /t/prep.pl
parentfac50755655f574662ac8766fb29e0211116c096 (diff)
downloadsbotools2-a7f24d7ce17888f1d6ac5ee0abfd226f0470047a.tar.xz
Tidying up function calls in test.t now that prototypes are gone
Diffstat (limited to 't/prep.pl')
-rwxr-xr-xt/prep.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/t/prep.pl b/t/prep.pl
index cfbd269..766dde9 100755
--- a/t/prep.pl
+++ b/t/prep.pl
@@ -14,14 +14,14 @@ copy('../SBO-Lib/lib/Sort/Versions.pm', "$pwd/Sort");
open my $write, '>>', "$pwd/SBO/Lib.pm";
-sub pr($) {
+sub pr {
my $thing = shift;
print {$write} "our \$$thing = 1;\n";
}
for my $thing (qw(interactive compat32 no_readme jobs distclean noclean
no_install no_reqs force force_reqs clean non_int)) {
- pr $thing;
+ pr($thing);
}
print {$write} "my \%required_by;\n";
@@ -30,7 +30,7 @@ print {$write} "my \%locations;\n";
print {$write} "my \%commands;\n";
print {$write} "my \%options = (nothing => 'to see here');\n";
-sub get_subs($) {
+sub get_subs {
my $read = shift;
my $begin_regex = qr/^sub\s+[a-z0-9_]+/;
my $usage_regex = qr/^sub\s+show_usage/;
@@ -56,7 +56,7 @@ sub get_subs($) {
for my $file (qw(sbocheck sboclean sboconfig sbofind sboupgrade sboremove)) {
open my $read, '<', "../$file";
- get_subs $read;
+ get_subs($read);
close $read;
}
close $write;