[perl_openvz] fix update error