* clean up extra whitespace in vss2svn.pl (this is the only time I'll do this, I...
[vss2svn.git] / give-exe-help.pl
blob110ada43bb125829c106e6ac917a1a587db30e93
1 ###############################################################################
2 # GiveExeHelp
3 ###############################################################################
4 sub GiveExeHelp {
5 my($msg, $verbose) = @_;
7 $msg .= "\n" if $msg;
9 DATA_LINE:
10 while (<DATA>) {
11 last DATA_LINE if (m/^OPTIONS/ && !$verbose);
12 $msg .= $_;
15 close DATA;
17 if ($verbose) {
18 print STDOUT "$msg\n";
19 exit(0);
22 die "$msg\n";
23 } # End GiveExeHelp
27 __END__