give-exe-help.pl

   1 ###############################################################################
   2 #  GiveExeHelp
   3 ###############################################################################
   4 sub GiveExeHelp {
   5     my($msg, $verbose) = @_;
   6
   7     $msg .= "\n" if $msg;
   8
   9 DATA_LINE:
  10     while (<DATA>) {
  11         last DATA_LINE if (m/^OPTIONS/ && !$verbose);
  12         $msg .= $_;
  13     }
  14
  15     close DATA;
  16
  17     if ($verbose) {
  18         print STDOUT "$msg\n";
  19         exit(0);
  20     }
  21
  22     die "$msg\n";
  23 }  #  End GiveExeHelp
  24
  25 1;
  26
  27 __END__