$discounts = _hasDiscounts($service); #returns 1
$data->{hasDiscounts} = $discounts; # now it is 1
warn $o->isCustomPrice; # returns 1
$data->{hasDiscounts} = undef if $o->isCustomPrice; # Сейчас оно все еще истинно и 1
# - проверяли print $data->{hasDiscounts} (***)

#warn $data->{hasDiscounts}; # - но если выполнить вот это - оно станет undef, как и должно.

Собственно вопрос - почему так и что сделать, чтобы было так как я ожидаю, т.е. undef с первой попытки.
Или я где-то туплю и именно так и должно быть?

#perl -v
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi


upd:, *** - Минимальный кусок кода для воспроизведения в комменте.

Про print - проверялось не сразу print, а через некоторую функцию, которая складывает это в буфер, который потом выдается вместе с заголовками перед выводом основной части хтмл в некотором fastcgi фреймворке. Что как-бы говорит (если мы правы), что проблема именно со стороны перла, а не HTML::CTPP2.