如何使用Perl更新自定义Bugzilla扩展中的自定义Bugzilla字段？

Question

我有一个自定义字段中的Bugzilla，我需要更新作出JSON调用到另一台服务器的错误已被更新后之后。我可以拨打电话并回复响应，但是尝试更新错误失败。

我试图设定钩域bug_end_of_update和object_end_of_set_all，它已不是在所有的工作。如果我试图做到这一点在bug_end_of_update，本身在内存中被更新，但它绝不会在数据库中获取设置的对象。调用$bug对象在方法上更新发送的Bugzilla进入无限循环，需要一个完整的重新启动以修复。在下面的代码，我能够正确地更新assigned_to场。使用完全相同的调用不会工作虽然自定义字段。

sub object_end_of_set_all {
    my ($self, $args) = @_;

    my $object = $args->{'object'};

    if ($object->isa('Bugzilla::Bug')) {        
        $object->{'assigned_to'} = $object->{'reporter_id'};    #this works
        $object->{'cf_custom_field'} = 'hello world';         #this doesn't
        my $blessedField = {cf_custom_field};
        bless $blessedField;
        $object->set($blessedField, 'hello world');         #also doesn't work
        $object->update;                                    #puts bugzilla into an infinite loop that never returns
    }
}

我希望设置自定义字段的工作方式与assigned_to完全一样，但是不能，并且非常缺少有关此文件的文档。