===================================================================
RCS file: /home/cvs/CVSROOT/commit_prep.pl,v
retrieving revision 1.2
retrieving revision 1.7
diff -u -p -r1.2 -r1.7
--- CVSROOT/commit_prep.pl	1999/10/27 18:03:00	1.2
+++ CVSROOT/commit_prep.pl	2003/09/27 14:24:42	1.7
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $OpenXM$
+# $OpenXM: CVSROOT/commit_prep.pl,v 1.6 2000/10/28 16:59:33 maekawa Exp $
 #
 # Most parts obtained from FreeBSD.org and modified for OpenXM
 #
@@ -39,9 +39,9 @@ $NoName = "
 
 $BadId = "%s - The \$\OpenXM\$ is mangled.\n";
 
-$BadName = "
-%s - The pathname '%s'
-    in the \$\OpenXM\$ line does not match the actual filename.\n";
+#$BadName = "
+#%s - The pathname '%s'
+#    in the \$\OpenXM\$ line does not match the actual filename.\n";
 
 $BadVersion = "
 %s - GRRR!!  You spammed your copy of the file
@@ -82,7 +82,7 @@ sub check_version {
 
     if ($pos == -1) {
 	printf($NoId, $filename);
-	return(1);
+	return(0);
     }
     $bareid = (index($line, "\$\OpenXM: \$") >= 0 ||
 		index($line, "\$\OpenXM\$") >= 0);
@@ -140,7 +140,7 @@ close(ENTRIES);
 $directory = $ARGV[0];
 shift @ARGV;
 
-$cvsroot=$ENV{'CVSROOT'} || "/usr/cvs";
+$cvsroot=$ENV{'CVSROOT'} || "/home/cvsroot/openxm";
 $directory =~ s,^$cvsroot[/]+,,;
 
 if ($directory =~ /^OpenXM/) {
@@ -160,6 +160,8 @@ if ($check_id != 0) {
     foreach $arg (@ARGV) {
 	local($hastag) = ($cvstag{$arg} ne '');
 	next if (index($arg, ".") == 0);
+	next if (index($arg, "pkg-") == 0);
+	next if ($arg =~ /^distinfo$/);
 	$failed += &check_version($arg, $directory, $hastag, $cvsversion);
     }
     if ($failed) {