X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/28151a28db84c6d6018232f36c0003ecd562b3f0..f850d8bca38d6f025cd26b62b6e5504dd4d77ad1:/source.plp diff --git a/source.plp b/source.plp index d874979..295f9e0 100644 --- a/source.plp +++ b/source.plp @@ -62,8 +62,8 @@ else { my $tag = $_->[0] && ($TYPETAG{ $_->[0] } || 'span'); my $arg = ''; print "<$tag$arg class=\"sy-\l$_->[0]\">" if $tag; - if ($_->[0] eq 'Constant' - and $_->[1] =~ s{^(['"])(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) { + if (!$_->[0] || $_->[0] eq 'Constant' + and $_->[1] =~ s{^(['"]?)(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) { printf '%s%s', $1, "/source/$2", $2; } if (!$_->[0] and $_->[1] =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) {