CVSROOT/commit_prep.pl - diff

Return to commit_prep.pl CVS log

Up to [local] / CVSROOT

version 1.1, 1999/10/27 17:45:04

version 1.4, 2000/10/28 16:35:49

Line 1

#!/usr/bin/perl -w

# $OpenXM$

# $OpenXM: CVSROOT/commit_prep.pl,v 1.3 1999/10/30 16:01:35 maekawa Exp $

# Most parts obtained from FreeBSD.org and modified for OpenXM

Line 82 sub check_version {

if ($pos == -1) {

printf($NoId, $filename);

return(1);

return(0);

}

$bareid = (index($line, "\$\OpenXM: \$") >= 0 ||

index($line, "\$\OpenXM\$") >= 0);

Line 140 close(ENTRIES);

$directory = $ARGV[0];

shift @ARGV;

$cvsroot=$ENV{'CVSROOT'} || "/home/ncvs";

$cvsroot=$ENV{'CVSROOT'} || "/usr/cvs";

$directory =~ s,^$cvsroot[/]+,,;

if ($directory =~ /^OpenXM/) {

Line 160 if ($check_id != 0) {

foreach $arg (@ARGV) {

local($hastag) = ($cvstag{$arg} ne '');

next if (index($arg, ".") == 0);

next if (index($arg, "pkg-") == 0);

$failed += &check_version($arg, $directory, $hastag, $cvsversion);

}

if ($failed) {