Re: undef-safe equality (shorter)

[tye]

Here's a shorter version (compared to the others I saw posted):

sub iseq {
    return  defined($_[0]) == defined($_[1])  &&  $_[0] eq $_[1];
}

Update: Drat. You can't get away with that shortcut and still avoid the warning.

[Roy Johnson]

But you can do

sub iseq {
  (!defined $_[0] || $_[0].9) eq (!defined $_[1] || $_[1].9);
}

Update - shorter:

  1 == keys %{{map {(!defined()||$_.9)=>1} @_}};