aboutsummaryrefslogtreecommitdiff
path: root/t/prep.pl
diff options
context:
space:
mode:
authorxocel <xocel@iquidus.org>2012-12-30 05:14:37 +1300
committerxocel <xocel@iquidus.org>2012-12-30 05:14:37 +1300
commita9491fed6e115adb86b8b7bdc94d5a6d4862a703 (patch)
tree2e50c68f331c357d59e1bd51b3dcbb1e1b51888c /t/prep.pl
parente452c4871418a5cc9152ed830d641f0ceefba3f2 (diff)
downloadsbotools2-a9491fed6e115adb86b8b7bdc94d5a6d4862a703.tar.xz
sboremove: minor fixes, moved get_requires to lib.pm, added tests, updated man page, more comments
Diffstat (limited to 't/prep.pl')
-rwxr-xr-xt/prep.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/t/prep.pl b/t/prep.pl
index c0f7035..5c40495 100755
--- a/t/prep.pl
+++ b/t/prep.pl
@@ -22,6 +22,8 @@ for my $thing (qw(interactive compat32 no_readme jobs distclean noclean
pr $thing;
}
+print {$write} "my \%required_by;\n";
+print {$write} "our \@confirmed;\n";
print {$write} "my \%locations;\n";
print {$write} "my \%commands;\n";
print {$write} "my \%options = (nothing => 'to see here');\n";
@@ -50,7 +52,7 @@ sub get_subs ($) {
}
}
-for my $file (qw(sbocheck sboclean sboconfig sbofind sboupgrade)) {
+for my $file (qw(sbocheck sboclean sboconfig sbofind sboupgrade sboremove)) {
open my $read, '<', "../$file";
get_subs $read;
close $read;