[BACK]Return to commit_prep.pl CVS log [TXT][DIR] Up to [local] / CVSROOT

Diff for /CVSROOT/commit_prep.pl between version 1.3 and 1.6

version 1.3, 1999/10/30 16:01:35 version 1.6, 2000/10/28 16:59:33
Line 1 
Line 1 
 #!/usr/bin/perl -w  #!/usr/bin/perl -w
 #  #
 # $OpenXM$  # $OpenXM: CVSROOT/commit_prep.pl,v 1.5 2000/10/28 16:55:31 maekawa Exp $
 #  #
 # Most parts obtained from FreeBSD.org and modified for OpenXM  # Most parts obtained from FreeBSD.org and modified for OpenXM
 #  #
Line 39  $NoName = "
Line 39  $NoName = "
   
 $BadId = "%s - The \$\OpenXM\$ is mangled.\n";  $BadId = "%s - The \$\OpenXM\$ is mangled.\n";
   
 $BadName = "  #$BadName = "
 %s - The pathname '%s'  #%s - The pathname '%s'
     in the \$\OpenXM\$ line does not match the actual filename.\n";  #    in the \$\OpenXM\$ line does not match the actual filename.\n";
   
 $BadVersion = "  $BadVersion = "
 %s - GRRR!!  You spammed your copy of the file  %s - GRRR!!  You spammed your copy of the file
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);
           next if ($arg =~ /^distinfo$/);
         $failed += &check_version($arg, $directory, $hastag, $cvsversion);          $failed += &check_version($arg, $directory, $hastag, $cvsversion);
     }      }
     if ($failed) {      if ($failed) {

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>