if ((($before eq 'A' || $before eq 'B') && $after eq 'Z') || ($before eq 'Z' && ($after eq 'A' || $after eq 'B'))) { # change from A|B <=> Z } #### if ($before eq 'Z' xor $after eq 'Z') { # change from A|B <=> Z } #### if (($before ne 'Z' && $after eq 'Z') || ($before eq 'Z' && $after ne 'Z')) { # change from A|B <=> Z } if (($before eq 'Z' || $after eq 'Z') && !($before eq 'Z' && $after eq 'Z')) { # change from A|B <=> Z } #### /usr/local/lib/perl/5.6.1/DateTime.pm: if ( $self->{tz}->is_floating xor $was_floating )