Bug#561080: please provide additional quoting into syntax/perl.vim

[Dmitry E. Oboukhov]

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: un...@debian.org jabber://un...@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537

signature.asc
Description: Digital signature