| … | |
… | |
| 3538 | my ($name, $type, $data) = @_; |
3538 | my ($name, $type, $data) = @_; |
| 3539 | |
3539 | |
| 3540 | my $idx = cf::face::find $name; |
3540 | my $idx = cf::face::find $name; |
| 3541 | |
3541 | |
| 3542 | if ($idx) { |
3542 | if ($idx) { |
| 3543 | delete $HASH{cf::face::get_chksum $idx}; |
3543 | delete $HASH{cf::face::get_csum $idx}; |
| 3544 | } else { |
3544 | } else { |
| 3545 | $idx = cf::face::alloc $name; |
3545 | $idx = cf::face::alloc $name; |
| 3546 | } |
3546 | } |
| 3547 | |
3547 | |
| 3548 | my $hash = cf::face::mangle_csum Digest::MD5::md5 $data; |
3548 | my $hash = cf::face::mangle_csum Digest::MD5::md5 $data; |
