# New Ticket Created by Todd Hepler
# Please include the string: [perl #61928]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61928 >
Hi.
I think this is a bug, but I'm not sure.
(undef === undef) currently evaluates to false. Seem like it should be
true.
I couldn't find a test for it, so below is a patch to add one.
Thanks,
-Todd
=== t/spec/S03-operators/value_equivalence.t
==================================================================
--- t/spec/S03-operators/value_equivalence.t (revision 114804)
+++ t/spec/S03-operators/value_equivalence.t (local)
@@ -14,7 +14,7 @@
=end pod
-plan 51;
+plan 52;
# === on values
{
@@ -25,6 +25,7 @@
ok !("abc" === "ABC"), "=== on values(abc === ABC)";
ok !(1 === 1.0), "=== on values (1 === 1.0)";
ok !(1 === "1"), '=== on values (1 === "1")';
+ ok (undef === undef), '=== on values (undef === undef)';
}
# Value types
