Re: undef-safe equality

[dragonchild]

Write your own function. (This one is adapated from Test::Builder, the basis for Test::More's is() test.)

sub is_eq {
    my ($l, $r) = @_;
    if (defined $l && defined $r) {
        return $l eq $r;
    }
    else {
        return !defined $l && !defined $r;
    }
}

Updated: Fixed typo in transcription from Test::Builder::is_eq()

[tall_man]

Your second return should be:

        return !defined $l && !defined $r;

Otherwise, two undefs will compare unequal.