X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/cad8198dbb4421c31673d233f1f05fdb5e1bffbd..715e7189d728b0b16880c31d14f9f7b2819c227b:/source.plp diff --git a/source.plp b/source.plp index bc8423b..1f3c600 100644 --- a/source.plp +++ b/source.plp @@ -64,8 +64,8 @@ foreach (@$parsed) { if ($_->[0] eq 'Constant' and $_->[1] =~ s/^(')([a-z0-9_.]+\.plp?)(?=\1$)//) { printf '%s%s', $1, "/source/$2", $2; } - if (!$_->[0] and $_->[1] =~ s/^([A-Z]\w+(?:::\w+)+)(?![^;\s])//) { - printf '%s', "/source/$1", $1; + if (!$_->[0] and $_->[1] =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) { + printf '%s%s', $1, "/source/$2", $2; } print Text::VimColor::_xml_escape($_->[1]); print "" if $tag;