version 1.2, 1999/10/27 18:03:00 |
version 1.4, 2000/10/28 16:35:49 |
|
|
#!/usr/bin/perl -w |
#!/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 |
# Most parts obtained from FreeBSD.org and modified for OpenXM |
# |
# |
Line 82 sub check_version { |
|
Line 82 sub check_version { |
|
|
|
if ($pos == -1) { |
if ($pos == -1) { |
printf($NoId, $filename); |
printf($NoId, $filename); |
return(1); |
return(0); |
} |
} |
$bareid = (index($line, "\$\OpenXM: \$") >= 0 || |
$bareid = (index($line, "\$\OpenXM: \$") >= 0 || |
index($line, "\$\OpenXM\$") >= 0); |
index($line, "\$\OpenXM\$") >= 0); |
Line 160 if ($check_id != 0) { |
|
Line 160 if ($check_id != 0) { |
|
foreach $arg (@ARGV) { |
foreach $arg (@ARGV) { |
local($hastag) = ($cvstag{$arg} ne ''); |
local($hastag) = ($cvstag{$arg} ne ''); |
next if (index($arg, ".") == 0); |
next if (index($arg, ".") == 0); |
|
next if (index($arg, "pkg-") == 0); |
$failed += &check_version($arg, $directory, $hastag, $cvsversion); |
$failed += &check_version($arg, $directory, $hastag, $cvsversion); |
} |
} |
if ($failed) { |
if ($failed) { |