[pass -ffoo options to jhc in regression tester, check to ensure jhc can run before starting any individual tests, print header with jhc version info and options used during a regression run, move clean up code out of END block.
John Meacham <john@repetae.net>**20061114035609] hunk ./regress/regress.prl 11
-GetOptions( 'o=s' => \@opts  ) or die "Invalid options";
+my @fopts;
+
+my @saved_args = @ARGV;
+
+Getopt::Long::Configure ("bundling");
+GetOptions( 'f=s' => \@fopts, 'o=s' => \@opts  ) or die "Invalid options";
+
+@opts = (@opts, map { "-f$_" } @fopts);
hunk ./regress/regress.prl 45
+
+my $jhc_version = `$jhc_dir/jhc --version`;
+$? == 0 or die "Could not run $jhc_dir/jhc --version";
+
hunk ./regress/regress.prl 57
-print RLOG "$now_string\n";
+rlog("$now_string");
+rlog("$jhc_version");
+rlog("regress ", join " ", @saved_args) if @saved_args;
+rlog("-----------------------------------");
hunk ./regress/regress.prl 98
+            next if $ln =~ /_code$/;
hunk ./regress/regress.prl 103
+            system "rm -f -- $cwd/${ln}_code.hs";
+            system "rm -f -- $cwd/${ln}_code.c";
hunk ./regress/regress.prl 159
-    exit 0;
-}
-
-
-
-END {
hunk ./regress/regress.prl 168
+    exit 0;
hunk ./regress/regress.prl 171
+
+
+