Package: vim-runtime Tags: patch Severity: wishlist Sometimes I stumble on perl-scripts which use q[] - quoting and vim can't highlight this quotting. I've made the patch to fix this problem. Please check it and apply If You don't have refuses :)
--- perl.vim 2009-12-14 12:15:47.000000000 +0300
+++ perl.vim 2009-12-14 12:23:21.000000000 +0300
@@ -297,21 +297,25 @@
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q|+
end=+|+ contai...@perlinterpsq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q(+
end=+)+ contai...@perlinterpsq,perlBrackets
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q{+
end=+}+ contai...@perlinterpsq
+syn region perlQQ matchgroup=perlStringStartEnd start=+\<q\[+
end=+\]+ contai...@perlinterpsq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q/+
end=+/+ contai...@perlinterpsq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx]#+
end=+#+ contai...@perlinterpdq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx]|+
end=+|+ contai...@perlinterpdq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx](+
end=+)+ contai...@perlinterpdq,perlBrackets
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx]{+
end=+}+ contai...@perlinterpdq
+syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx]\[+
end=+\]+ contai...@perlinterpdq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx]/+
end=+/+ contai...@perlinterpdq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw#+
end=+#+ contai...@perlinterpsq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw|+
end=+|+ contai...@perlinterpsq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw(+
end=+)+ contai...@perlinterpsq,perlBrackets
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw{+
end=+}+ contai...@perlinterpsq
+syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw\[+
end=+\]+ contai...@perlinterpsq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw/+
end=+/+ contai...@perlinterpsq
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr#+
end=+#[imosx]*+ contai...@perlinterpmatch
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr|+
end=+|[imosx]*+ contai...@perlinterpmatch
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr(+
end=+)[imosx]*+ contai...@perlinterpmatch
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr{+
end=+}[imosx]*+ contai...@perlinterpmatch
+syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr\[+
end=+\][imosx]*+ contai...@perlinterpmatch
syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr/+
end=+/[imosx]*+ contai...@perlinterpslash
" Constructs such as print <<EOF [...] EOF, 'here' documents
--
... mpd is off
. ''`. Dmitry E. Oboukhov
: :’ : email: [email protected] jabber://[email protected]
`. `~’ GPGKey: 1024D / F8E26537 2006-11-21
`- 1B23 D4F8 8EC0 D902 0555 E438 AB8C 00CF F8E2 6537
signature.asc
Description: Digital signature
