can`t安装perl module crypt ::茶

Question

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

TEA.xs：在函数“XS_Crypt__TEA_crypt”中： TEA.xs:58:9: 错误：无效的使用无效表达式

Answer 1

问题是this line:

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

SvUPGRADE() 是一个有两个 void 操作的宏，它不返回值。如果它失败了，它会发出嘶哑的声音。改成这样：

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