CVS: mharc/bin apply-config,1.12,1.13 mh-month-pack,1.4,1.5

Update of /cvsroot/mhonarc/mharc/bin
In directory subversions:/tmp/cvs-serv31064

Modified Files:
	apply-config mh-month-pack 
Log Message:
Removed 'use Pod::Usage' at top.  It is required only when needed.
This should allow script execution on systems that do not have Pod::Usage
installed (but user will not be able to get help from the command-line).


Index: apply-config
===================================================================
RCS file: /cvsroot/mhonarc/mharc/bin/apply-config,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** apply-config	28 Sep 2002 05:17:48 -0000	1.12
--- apply-config	11 Oct 2002 23:52:28 -0000	1.13
***************
*** 41,46 ****
  use Getopt::Long;
  use File::Find;
! use Pod::Usage;
! use MHArc::Util qw(run_prg);
  
  my $clean = 0;
--- 41,45 ----
  use Getopt::Long;
  use File::Find;
! use MHArc::Util qw(run_prg usage);
  
  my $clean = 0;
***************
*** 50,54 ****
  my $verbose = 0;
  
! GetOptions(
      "clean!"	  => \$clean,
      "distclean!"  => \$distclean,
--- 49,53 ----
  my $verbose = 0;
  
! my $clstatus = GetOptions(
      "clean!"	  => \$clean,
      "distclean!"  => \$distclean,
***************
*** 59,66 ****
      "help"	  => \$help,
      "man"	  => \$man
! ) || pod2usage(-verbose => 0);
! pod2usage(-verbose => 1)  if $help;
! pod2usage(-verbose => 2)  if $man;
! 
  
  $verbose = 1  if $debug || $noact;
--- 58,65 ----
      "help"	  => \$help,
      "man"	  => \$man
! );
! usage(0) unless $clstatus;
! usage(1) if $help;
! usage(2) if $man;
  
  $verbose = 1  if $debug || $noact;

Index: mh-month-pack
===================================================================
RCS file: /cvsroot/mhonarc/mharc/bin/mh-month-pack,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** mh-month-pack	15 Sep 2002 03:33:08 -0000	1.4
--- mh-month-pack	11 Oct 2002 23:52:28 -0000	1.5
***************
*** 28,32 ****
  BEGIN { die qq/CGI use FORBIDDEN!\n/ if (defined($ENV{'GATEWAY_INTERFACE'})); }
  
- use Pod::Usage;
  use Getopt::Long;
  
--- 28,31 ----

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV