Perl 5.005_03 compatability: the precedence of the not and comma operators changed at some point, so disambiguate this usage.

This commit is contained in:
ian%hixie.ch 2002-05-26 15:05:37 +00:00
Родитель 78a7589fdc
Коммит 42ac389024
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -60,7 +60,7 @@ sub expand {
# what we have here is a potential Template::Document
# let's try to evaluate it
$document = eval $string;
$self->assert(not(defined($@)), 1, "Error loading compiled template: $@");
$self->assert((not defined($@)), 1, "Error loading compiled template: $@");
} else { # $type eq 'TemplateToolkit'
# what we have is a raw string
$document = \$string;