[PATCH] Fix mishandling of Perl indent levels with folding

[Benjamin R. Haskell]

GetPerlSyntax() was testing for the syntax items 'perlBEGINENDFold' and
'perlIfFold', neither of which exists any more.  The patch tests for
'perlBlockFold' instead.  ('perlPackageFold' doesn't affect testing for
braces).


-- 
You received this message from the "vim_dev" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php

# HG changeset patch
# User Benjamin R. Haskell <v...@benizi.com>
# Date 1280285167 14400
# Branch vim73
# Node ID 9ebb356afea420c871ce4674d502a01b1c0a30a3
# Parent  6de9efd58dc0d68cfeb28b7334ad7dc908ca2365
Fix mishandling of Perl indent levels with folding.

GetPerlSyntax() was testing for the syntax items 'perlBEGINENDFold' and
'perlIfFold', neither of which exists any more.  The patch tests for
'perlBlockFold' instead.  ('perlPackageFold' doesn't affect testing for
braces).

diff -r 6de9efd58dc0 -r 9ebb356afea4 runtime/indent/perl.vim
--- a/runtime/indent/perl.vim	Tue Jul 27 22:50:12 2010 +0200
+++ b/runtime/indent/perl.vim	Tue Jul 27 22:45:43 2010 -0400
@@ -133,7 +133,7 @@
 	    \ || synid == "perlMatchStartEnd"
 	    \ || synid == "perlHereDoc"
 	    \ || synid =~ "^perlFiledescStatement"
-	    \ || synid =~ '^perl\(Sub\|BEGINEND\|If\)Fold'
+	    \ || synid =~ '^perl\(Sub\|Block\)Fold'
 	let brace = strpart(line, bracepos, 1)
 	if brace == '(' || brace == '{'
 	  let ind = ind + &sw
@@ -148,7 +148,7 @@
       let synid = synIDattr(synID(v:lnum, bracepos, 0), "name")
       if synid == ""
 	    \ || synid == "perlMatchStartEnd"
-	    \ || synid =~ '^perl\(Sub\|BEGINEND\|If\)Fold'
+	    \ || synid =~ '^perl\(Sub\|Block\)Fold'
 	let ind = ind - &sw
       endif
     endif