From 8b08c603ae79c145bc3b344f6dca4f0a95ed6201 Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Sat, 1 Sep 2012 04:52:02 -0500
Subject: more and more cleanups and fixes

---
 t/prep.pl | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 't/prep.pl')

diff --git a/t/prep.pl b/t/prep.pl
index c5591dc..6b38a33 100755
--- a/t/prep.pl
+++ b/t/prep.pl
@@ -12,14 +12,17 @@ copy ('/home/d4wnr4z0r/projects/slack14/sbotools/SBO-Lib/lib/SBO/Lib.pm', "$pwd/
 
 open my $write, '>>', "$pwd/SBO/Lib.pm";
 
-print {$write} "my \$interactive = 1;\n";
-print {$write} "my \%locations;";
-print {$write} "my \$compat32 = 1;\n";
-print {$write} "my \$no_readme = 1;\n";
-print {$write} "my \$jobs = 1;\n";
-print {$write} "my \$distclean = 1;\n";
-print {$write} "my \$noclean = 1;\n";
-print {$write} "my \$no_install = 1;\n";
+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)) {
+	pr $thing;
+}
+
+print {$write} "my \%locations;\n";
+print {$write} "my \%options = (nothing => 'to see here');\n";
 
 sub get_subs ($) {
 	my $read = shift;
-- 
cgit v1.2.3