strengthened commit message check
This commit is contained in:
parent
97afd1191c
commit
d033a7af79
@ -122,11 +122,18 @@ sub check_commit_message
|
|||||||
|
|
||||||
my $log = $txn->prop ('svn:log');
|
my $log = $txn->prop ('svn:log');
|
||||||
$log =~ s/^\s+|\s+$//g; # trim leading spaces and trailing spaces
|
$log =~ s/^\s+|\s+$//g; # trim leading spaces and trailing spaces
|
||||||
if (length($log) < $minlen) {
|
if (length($log) < $minlen)
|
||||||
|
{
|
||||||
print (STDERR "Commit message too short. must be >= $minlen\n");
|
print (STDERR "Commit message too short. must be >= $minlen\n");
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if ($log =~ /^[[:punct:][:space:]]+$/)
|
||||||
|
{
|
||||||
|
print (STDERR "Commit message meaningless\n");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user