mhonarc-commits
[Top] [All Lists]

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

2002-07-08 18:26:28
Update of /cvsroot/mhonarc/mharc/lib/MHArc
In directory subversions:/tmp/cvs-serv24787

Modified Files:
	Util.pm 
Log Message:
* Added exec_prg.
* Fixed cmd to properly echo command if $ECHO_CMDS is set.


Index: Util.pm
===================================================================
RCS file: /cvsroot/mhonarc/mharc/lib/MHArc/Util.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** Util.pm	7 Jul 2002 04:09:35 -0000	1.2
--- Util.pm	9 Jul 2002 01:26:24 -0000	1.3
***************
*** 31,34 ****
--- 31,35 ----
    &ch_dir
    &cmd
+   &exec_prg
    &mk_dir
    &run_prg
***************
*** 38,49 ****
  ##--------------------------------------------------------------------------##
  
! $ECHO_CMDS = 0;
! $ECHO_ONLY = 0;
  
  ##--------------------------------------------------------------------------##
  
  sub cmd {
    if ($ECHO_ONLY) {
-     print "@_\n" if $ECHO_CMDS;
      return 0;   # bogus ok exit status
    }
--- 39,52 ----
  ##--------------------------------------------------------------------------##
  
! BEGIN {
!   $ECHO_CMDS = 0;
!   $ECHO_ONLY = 0;
! }
  
  ##--------------------------------------------------------------------------##
  
  sub cmd {
+   print "@_\n" if $ECHO_CMDS;
    if ($ECHO_ONLY) {
      return 0;   # bogus ok exit status
    }
***************
*** 79,82 ****
--- 82,95 ----
        mkdir $dir, 0777;
      }
+   }
+ }
+ 
+ sub exec_prg {
+   print "@_\n"  if $ECHO_CMDS;
+   if ($ECHO_ONLY) {
+     exit 0;
+   } else {
+     exec(@_);
+     die qq/exec @_ failed: $?\n/;
    }
  }

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