diff options
author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-14 07:29:39 +0100 |
---|---|---|
committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-14 07:29:39 +0100 |
commit | a7f24d7ce17888f1d6ac5ee0abfd226f0470047a (patch) | |
tree | 205ee8b240c10a8d3b794f303a2eb9e874891ede /t/prep.pl | |
parent | fac50755655f574662ac8766fb29e0211116c096 (diff) | |
download | sbotools2-a7f24d7ce17888f1d6ac5ee0abfd226f0470047a.tar.xz |
Tidying up function calls in test.t now that prototypes are gone
Diffstat (limited to 't/prep.pl')
-rwxr-xr-x | t/prep.pl | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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; |