Return to commit_prep.pl CVS log | Up to [local] / CVSROOT |
version 1.1, 1999/10/27 17:45:04 | version 1.2, 1999/10/27 18:03:00 | ||
---|---|---|---|
|
|
||
$directory = $ARGV[0]; | $directory = $ARGV[0]; | ||
shift @ARGV; | shift @ARGV; | ||
$cvsroot=$ENV{'CVSROOT'} || "/home/ncvs"; | $cvsroot=$ENV{'CVSROOT'} || "/usr/cvs"; | ||
$directory =~ s,^$cvsroot[/]+,,; | $directory =~ s,^$cvsroot[/]+,,; | ||
if ($directory =~ /^OpenXM/) { | if ($directory =~ /^OpenXM/) { |