integer failsafe()
{
    list _attachments = llGetAttachedList(llGetOwner());
    integer i;
    for (i=0; i<llGetListLength(_attachments); i++)
    {
        key _k = llList2Key(_attachments, i);
        list CHECK = llGetObjectDetails(_k, [OBJECT_CREATOR, OBJECT_NAME, OBJECT_DESC, OBJECT_ATTACHED_POINT]);

        if (llList2String(MATCH, 0) == llList2String(CHECK, 0) &&
            llList2String(MATCH, 1) == llList2String(CHECK, 1) &&
            llList2String(MATCH, 2) == llList2String(CHECK, 2) &&
            llList2String(MATCH, 3) == llList2String(CHECK, 3))
            return 1;
    }

    return 0;
}