Re: undef-safe equality

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;
    }
}
[download]

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

My wife's blog

Comment on Re: undef-safe equality Download Code

Replies are listed 'Best First'.
Re^2: undef-safe equality by tall_man (Parson) on Apr 21, 2005 at 19:46 UTC
Your second return should be: `return !defined $l && !defined $r;` [download] Otherwise, two undefs will compare unequal.	[reply] [d/l]