| Subject: | UNIVERAL->UNIVERSAL |
See also <https://rt.perl.org/rt3/Ticket/Display.html?id=114902>.
The attached patch corrects a typo. The module was trying to call UNIVERAL::can, resulting in a
test failure in bleadperl. Why they pass in earlier perl versions I don’t know.
| Subject: | open_cewQ3pA0.txt |
diff -rup Set-Object-1.28-7Atbwh/lib/Set/Object.pm Set-Object-1.28-jfD7lc/lib/Set/Object.pm
--- Set-Object-1.28-7Atbwh/lib/Set/Object.pm 2010-07-21 23:18:49.000000000 -0700
+++ Set-Object-1.28-jfD7lc/lib/Set/Object.pm 2012-09-14 13:49:36.000000000 -0700
@@ -934,7 +934,7 @@ sub is_key {
return is_key(&$sub($_[0]));
} elsif ($sub = UNIVERSAL::can($_[0], '(""')) {
return is_key(&$sub($_[0]));
- } elsif ($sub = UNIVERAL::can($_[0], '(nomethod')) {
+ } elsif ($sub = UNIVERSAL::can($_[0], '(nomethod')) {
return is_key(&$sub($_[0]));
} else {
return undef;