CVS: mharc/bin compress-mboxes,1.4,1.5

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

Modified Files:
	compress-mboxes 
Log Message:
* bin/compress-mboxes:
  . FIX: Fixed handling of -n and -debug options.


Index: compress-mboxes
===================================================================
RCS file: /cvsroot/mhonarc/mharc/bin/compress-mboxes,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** compress-mboxes	9 Jul 2002 01:30:49 -0000	1.4
--- compress-mboxes	9 Jul 2002 01:53:38 -0000	1.5
***************
*** 51,54 ****
--- 51,57 ----
    usage(2) if $opt{'man'};
  
+   my $debug = $opt{'debug'};
+   my $noact = $opt{'n'};
+ 
    $MHArc::Util::ECHO_CMDS = $noact || $debug;
    $MHArc::Util::ECHO_ONLY = $noact;
***************
*** 68,75 ****
      '-pattern', '^\d+(?:-\d+)?$',
    );
!   if ($opt{'n'}) {
      push(@cmd_args, '-n');
    }
!   if ($opt{'debug'}) {
      push(@cmd_args, '-debug');
    }
--- 71,78 ----
      '-pattern', '^\d+(?:-\d+)?$',
    );
!   if ($noact) {
      push(@cmd_args, '-n');
    }
!   if ($debug) {
      push(@cmd_args, '-debug');
    }

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