There's a bug somewhere which results in the expansion of an undefined string. This assertion should help track it down.

This commit is contained in:
ian%hixie.ch 2002-05-06 09:55:19 +00:00
Родитель 53d3369e22
Коммит 7cab9b3ac4
1 изменённых файлов: 1 добавлений и 0 удалений

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

@ -146,6 +146,7 @@ sub getArgumentsAsString {
sub getArgumentsFromString { sub getArgumentsFromString {
my $self = shift; my $self = shift;
my($string) = @_; my($string) = @_;
$self->assert(defined($string), 1, 'Tried to expand an undefined string');
if (ref($string) eq 'ARRAY') { if (ref($string) eq 'ARRAY') {
$string = join(';', @$string); $string = join(';', @$string);
} }