You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
perl-Set-Object/perl-Set-Object-fix-assert....

13 lines
448 B

diff -up Set-Object-1.26/Object.xs~ Set-Object-1.26/Object.xs
--- Set-Object-1.26/Object.xs~ 2008-10-12 23:06:28.000000000 +0200
+++ Set-Object-1.26/Object.xs 2008-11-11 12:20:03.000000000 +0100
@@ -342,7 +342,7 @@ _dispel_magic(ISET* s, SV* sv) {
I32 i = AvFILLp(wand);
int c = 0;
- assert( SvTYPE(want) == SVt_PVAV );
+ assert( SvTYPE(wand) == SVt_PVAV );
while (i >= 0) {
if (svp[i] && SvIV(svp[i])) {