[guest - Mon Jul 5 06:05:46 2004]:
Show quoted text> from perl.qa
>
> --- More.pm.orig 2004-06-30 15:15:24.182762112 +0100
> +++ More.pm 2004-06-30 15:16:36.330793944 +0100
> @@ -1035,7 +1035,9 @@
> # Quiet uninitialized value warnings when comparing undefs.
> local $^W = 0;
>
> - if( ! (ref $e1 xor ref $e2) and $e1 eq $e2 ) {
> + if( ! (ref $e1 xor ref $e2) and
> + ! (defined $e1 xor defined $2) and
> + $e1 eq $e2 ) {
> $ok = 1;
> }
> else {
There's no xor's in Test::More. Where'd that code come from?