Make #error also expand variables, like #expand (makes things easier to debug)

This commit is contained in:
ian%hixie.ch 2002-10-13 22:45:34 +00:00
Родитель c94df62986
Коммит 77480d24bd
1 изменённых файлов: 9 добавлений и 4 удалений

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

@ -267,6 +267,12 @@ sub filter {
$self->{'filters'}->{$filter} = $value;
}
sub expand {
my $self = shift;
my($line) = @_;
$line =~ s/__(\w+)__/$self->get($1)/gose;
return $line;
}
########################################################################
@ -378,16 +384,15 @@ sub error {
my $stack = shift;
return if $stack->disabled;
die "argument expected\n" unless @_;
local $" = ' ';
die "@_\n";
my $line = $stack->expand(@_);
die "$line\n";
}
sub expand {
my $stack = shift;
return if $stack->disabled;
die "argument expected\n" unless @_;
my $line = shift;
$line =~ s/__(\w+)__/$stack->get($1)/gose;
my $line = $stack->expand(@_);
print "$line\n";
}