Bump treedata_version when writing new file.

Bug #390522 r=bear


git-svn-id: svn://10.0.0.236/trunk@231246 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
cls%seawood.org 2007-08-01 22:27:25 +00:00
parent 449e7062a7
commit e6cbf83d33

View File

@ -67,7 +67,11 @@ sub validate_treedata() {
$treedata{treedata_version} == $::default_treedata{treedata_version}) {
print "\t$treedir is current\n" if ($verbose);
next;
}
} else {
# Bump the treedata_version
$treedata{treedata_version} = $::default_treedata{treedata_version};
$changedvalues++;
}
# Fill in missing gaps
for my $var (keys %treedata) {
if (!defined($treedata{$var})) {