CVS: mharc/lib/MHArc Util.pm,1.3,1.4

Update of /cvsroot/mhonarc/mharc/lib/MHArc
In directory subversions:/tmp/cvs-serv26247

Modified Files:
	Util.pm 
Log Message:
Fixed handling of $ECHO_CMD and $ECHO_ONLY variables in several
routines.


Index: Util.pm
===================================================================
RCS file: /cvsroot/mhonarc/mharc/lib/MHArc/Util.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** Util.pm	9 Jul 2002 01:26:24 -0000	1.3
--- Util.pm	23 Jul 2002 03:56:15 -0000	1.4
***************
*** 47,51 ****
  
  sub cmd {
!   print "@_\n" if $ECHO_CMDS;
    if ($ECHO_ONLY) {
      return 0;   # bogus ok exit status
--- 47,51 ----
  
  sub cmd {
!   print "@_\n" if $ECHO_CMDS || $ECHO_ONLY;
    if ($ECHO_ONLY) {
      return 0;   # bogus ok exit status
***************
*** 55,68 ****
  
  sub ch_dir {
!   my $dir       = shift;
    if ($ECHO_ONLY) {
!     print "chdir $dir\n" if $ECHO_CMDS;
!   } else {
!     chdir $dir;
    }
  }
  
  sub run_prg {
!   print "@_\n"  if $ECHO_CMDS;
    if (!$ECHO_ONLY) {
      my $wait = system @_;
--- 55,68 ----
  
  sub ch_dir {
!   my $dir = shift;
!   print "chdir $dir\n" if $ECHO_CMDS || $ECHO_ONLY;
    if ($ECHO_ONLY) {
!     return 0;
    }
+   chdir $dir;
  }
  
  sub run_prg {
!   print "@_\n"  if $ECHO_CMDS || $ECHO_ONLY;
    if (!$ECHO_ONLY) {
      my $wait = system @_;
***************
*** 74,79 ****
    my $dir       = shift;
    my $mask      = shift;
    if ($ECHO_ONLY) {
!     print "mkdir $dir\n"  if $ECHO_CMDS;
    } else {
      if (defined($mask)) {
--- 74,81 ----
    my $dir       = shift;
    my $mask      = shift;
+   print "mkdir $dir\n"  if $ECHO_CMDS || $ECHO_ONLY;
+ 
    if ($ECHO_ONLY) {
!     return 0;
    } else {
      if (defined($mask)) {
***************
*** 86,90 ****
  
  sub exec_prg {
!   print "@_\n"  if $ECHO_CMDS;
    if ($ECHO_ONLY) {
      exit 0;
--- 88,92 ----
  
  sub exec_prg {
!   print "@_\n"  if $ECHO_CMDS || $ECHO_ONLY;
    if ($ECHO_ONLY) {
      exit 0;

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