diff options
-rwxr-xr-x | CVSROOT/cfg.pm | 8 | ||||
-rwxr-xr-x | CVSROOT/commit_prep.pl | 2 | ||||
-rwxr-xr-x | CVSROOT/log_accum.pl | 8 |
3 files changed, 12 insertions, 6 deletions
diff --git a/CVSROOT/cfg.pm b/CVSROOT/cfg.pm index 264cf3ab821c..caaad0405ed5 100755 --- a/CVSROOT/cfg.pm +++ b/CVSROOT/cfg.pm @@ -16,8 +16,8 @@ use strict; use vars qw( $ADD_TO_LINE $CHECK_HEADERS $DEBUG $FILE_PREFIX $IDHEADER $LAST_FILE $MAILADDRS $MAILBANNER $MAILCMD $MAIL_BRANCH_HDR - $MAIL_ON_DIR_CREATION $MAIL_TRANSFORM $PID $TMPDIR $UNEXPAND_RCSID - %TEMPLATE_HEADERS @COMMIT_HOSTS + $MAIL_ON_DIR_CREATION $MAIL_TRANSFORM $PID $PROG_CVS $PROG_MV + $TMPDIR $UNEXPAND_RCSID %TEMPLATE_HEADERS @COMMIT_HOSTS ); @@ -42,6 +42,10 @@ $FILE_PREFIX = "#cvs.files.$PID"; # The file used to store the name of the last directory examined # when processing a multi-directory commit. $LAST_FILE = "$TMPDIR/$FILE_PREFIX.lastdir"; +# System tools. +$PROG_CVS = '/usr/bin/cvs'; # cvs(1) +$PROG_MV = '/bin/mv'; # mv(1) + ################### ### commitcheck ### diff --git a/CVSROOT/commit_prep.pl b/CVSROOT/commit_prep.pl index bbe329ddb1e2..c572487d120e 100755 --- a/CVSROOT/commit_prep.pl +++ b/CVSROOT/commit_prep.pl @@ -227,7 +227,7 @@ sub fix_up_file { close F; # overwrite the original file...... - system("/bin/mv", "$filename.tmp", $filename); + system($cfg::PROG_MV, "$filename.tmp", $filename); die "Can't recreate $filename!\n" if $? >> 8; } diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl index a8575ade0c08..60fc5d36ddc6 100755 --- a/CVSROOT/log_accum.pl +++ b/CVSROOT/log_accum.pl @@ -228,7 +228,7 @@ sub get_revision_number { my $rcsfile = ""; my $revision = ""; - open(RCS, "-|") || exec 'cvs', '-Qn', 'status', $file; + open(RCS, "-|") || exec $cfg::PROG_CVS, '-Qn', 'status', $file; while (<RCS>) { if (/^[ \t]*Repository revision/) { chomp; @@ -253,7 +253,8 @@ sub count_lines_in_revision { my $rev = shift; # Revision number. my $lines = 0; - open(RCS, "-|") || exec 'cvs', '-Qn', 'update', '-p', "-r$rev", $file; + open(RCS, "-|") || + exec $cfg::PROG_CVS, '-Qn', 'update', '-p', "-r$rev", $file; while (<RCS>) { ++$lines; } @@ -277,7 +278,8 @@ sub change_summary_changed { my ($rev, $rcsfile) = get_revision_number($file); if ($rev and $rcsfile) { - open(RCS, "-|") || exec 'cvs', '-Qn', 'log', "-r$rev", $file; + open(RCS, "-|") || + exec $cfg::PROG_CVS, '-Qn', 'log', "-r$rev", $file; while (<RCS>) { if (/^date:.*lines:\s(.*)$/) { $delta = $1; |