为什么总是段错误啊，怎么改啊

Question

本题要求实现一个函数，在递增的整数序列链表（带头结点）中插入一个新整数，并保持该序列的有序性。

List Insert( List L, ElementType X ){
    List head=L;
      List pHead = (List)malloc(sizeof(struct Node));
            pHead->Data=X;
    pHead->Next=NULL;
    if(head->Next==NULL){
        head->Next=pHead;
        return L;
    }
    while(head){
        if(X<head->Next->Data){
            pHead->Next=head->Next;
            head->Next=pHead;
            return L;
        }
        head=head->Next;
    }
    if(head->Next=NULL){
        head->Next=pHead;
        return L;
    }
    return L;
}

Answer 1

执行到18行的时候，前面的while已经让head为NULL了。

List Insert(List L, ElementType X)
{
    List head = L;
    List pHead = (List)malloc(sizeof(struct Node));
    pHead->Data = X;
    pHead->Next = NULL;

    while (head->Next)
    {
        if (X < head->Data && head != L)
            break;
        head = head->Next;
    }

    pHead->Next = head->next;
    head->Next = pHead;

    return L;
}