[Add usage to regress/regress.pl
Samuel Bronson <naesten@gmail.com>**20090209215038] hunk ./regress/regress.prl 7
+use Pod::Usage;
hunk ./regress/regress.prl 24
+my $opt_help;
+my $opt_man;
hunk ./regress/regress.prl 27
-Getopt::Long::Configure ("bundling");
+Getopt::Long::Configure ("bundling", "auto_help");
hunk ./regress/regress.prl 29
+    help  => \$opt_help,
+    man   => \$opt_man,
hunk ./regress/regress.prl 39
-    clean => \$opt_clean
-    ) or die "Invalid options";
+    clean => \$opt_clean,
+    ) or pod2usage(2);
+pod2usage(-verbose => 2) if $opt_man;
+pod2usage(1) if $opt_help;
+
+=head1 NAME
+
+regress
+
+=head1 SYNOPSIS
+
+regress [options] [conditions]
+
+ Conditions:
+   <regex>       only run tests mathing regex
+   !<regex>      don't run tests matching regex
+
+ Options:
+   --help        brief help message
+   --man         full documentation
+
+   -m ARCH       passed through to LHC
+   -f FLAG       passed through to LHC
+   -o OPTION     pass given option to LHC
+   -t INT        timeout in seconds of CPU time
+
+   -l            use base package (.hl file) rather than just pulling
+                 in the .ho files from lib/base/dist/build/
+   -n            go faster by not linting
+   -p            profile LHC (requires lhcp to have been built)
+
+   --rts         extra GHC RTS flags for LHC
+   --clean       build .ho files for tests from scratch
+ 
+=head1 DESCRIPTION
+
+Run the LHC test suite.
+
+=cut