Support for #literal in case users need to output lines starting with a #

git-svn-id: svn://10.0.0.236/trunk@131724 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
ian%hixie.ch 2002-10-10 21:56:47 +00:00
parent dfc89d7838
commit 8fbdfcf024

View File

@ -313,6 +313,14 @@ sub expand {
print "$line\n";
}
sub literal {
my $stack = shift;
return if $stack->disabled;
die "argument expected\n" unless @_;
my $line = shift;
print "$line\n";
}
sub include {
my $stack = shift;
return if $stack->disabled;