无法安装perl模块Crypt :: TEA

Question

当我尝试在Windows 7上将Crypt :: TEA模块安装到perl 5.18时,显示错误:

TEA.xs:在函数'XS_Crypt__TEA_crypt'中:TEA.xs:58:9:错误:无效使用void表达式

Answer 1

问题是这一行:

    if (SvREADONLY(output) || !SvUPGRADE(output, SVt_PV))
        croak("cannot use output as lvalue");

SvUPGRADE()是一个具有两个void操作的宏,它不返回值.如果失败,它会嘶哑.把它改成这个:

    if (!SvREADONLY(output)) 
        SvUPGRADE(output, SVt_PV);