white space cleanups

This commit is contained in:
Dietmar Maurer 2016-10-07 11:14:20 +02:00
parent 44a1fe387e
commit 74b0334e19

View File

@ -106,7 +106,7 @@ sub scan_adoc_file {
while (defined (my $line = <$fh>)) {
if ($line =~ m/^if(n?)def::(\S+)\[(.*)\]\s*$/) {
my ($not, $env, $text) = ($1, $2);
my ($not, $env, $text) = ($1, $2, $3);
die "unsuported ifdef usage - implement me" if $text;
push_environment($env, $not);
next;
@ -196,4 +196,3 @@ foreach my $e (@$start_env) {
print to_json($fileinfo, { pretty => 1 } );