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