Select Code to Download

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
}

/usr/local/lib/perl/5.6.1/DateTime.pm:    if ( $self->{tz}->is_floatin
+g xor $was_floating )