无法安装Perl模块Crypt :: TEA

Question

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

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

Answer 1

问题是这一行 ：

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

SvUPGRADE（）是具有两个void操作的宏，它不返回值。 如果失败，它会发出嘶哑的声音。 更改为此：

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