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
Родитель 76c246b0ac
Коммит 8121837c6b
1 изменённых файлов: 1 добавлений и 1 удалений

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

@ -60,7 +60,7 @@ sub expand {
# what we have here is a potential Template::Document # what we have here is a potential Template::Document
# let's try to evaluate it # let's try to evaluate it
$document = eval $string; $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' } else { # $type eq 'TemplateToolkit'
# what we have is a raw string # what we have is a raw string
$document = \$string; $document = \$string;