CVS update by ben xemacs-builds/ben ...
User: ben
Date: 05/12/19 03:32:37
Modified: xemacs-builds/ben cvs-commit
Log:
Use crw instead of unilaterally crw
Revision Changes Path
1.3 +5 -4 XEmacs/xemacs-builds/ben/cvs-commit
Index: cvs-commit
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ben/cvs-commit,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- cvs-commit 2004/11/13 23:01:08 1.2
+++ cvs-commit 2005/12/19 02:32:37 1.3
＠＠ -6,7 +6,7 ＠＠
## Author: Ben Wing <ben(a)xemacs.org>
## Maintainer: Ben Wing <ben(a)xemacs.org>
-## Current Version: $Revision: 1.2 $
+## Current Version: $Revision: 1.3 $
## This file is part of XEmacs.
＠＠ -52,6 +52,7 ＠＠ the top level and down below; this isn't
";
my $debug = defined $ENV{VERBOSE} || defined $ENV{DEBUG};
+my $cvs = $ENV{CVS_COMMAND} || "cvs"; # might be 'crw'
my ＠SAVE_ARGV = ＠ARGV;
my %options;
＠＠ -75,16 +76,16 ＠＠ select(STDOUT); $| = 1;
if (＠ARGV)
{
- system 'crw', 'commit', ＠SAVE_ARGV;
+ system $cvs, 'commit', ＠SAVE_ARGV;
}
else
{
chomp (my ＠fuckyou = `cvs-mods --no-recurse`);
- system 'crw', 'commit', ＠SAVE_ARGV;
+ system $cvs, 'commit', ＠SAVE_ARGV;
if (＠fuckyou)
{
print "Now forcibly handling files that this fucked-up CVS won't do
itself.\n";
- system 'crw', 'commit', ＠SAVE_ARGV, ＠fuckyou;
+ system $cvs, 'commit', ＠SAVE_ARGV, ＠fuckyou;
}
}