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:
parent
dfc89d7838
commit
8fbdfcf024
@ -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;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user