my @g;
my $bp;
my $info = 0;
+my $debug = 0;
-GetOptions("i" => \$info);
+GetOptions("i" => \$info, "d" => \$debug);
# This is some dark magic to find out our real base directory,
# where we hope to find our plugins.
exit 1;
}
+foreach (@g, $f) {
+ $_->setio(sub { printf(@_); print("\n"); } );
+
+ if ($debug) {
+ $_->setdebug(1);
+ }
+}
+
$f->setval('FILEPATTERN', './%3$s' . $ext);
foreach (@ARGV) {