[patch] Fix perl indent in fold mode.

[Alexander V Alekseev]

                Hello!

        When folding is on (foldmethod=syntax, syntax-perl) current
indent script advises this style:
---------- test.pl -------------
sub aa() {
        my $a;
        if (aaa) {
        if (bbb) {
        ccc
        }
        return 1;
        }
}
-------------------------------

It seems to me that indent/perl.vim lacks support for new (?) syntax ids
"perlBlockFold" and "perlSubFold". The patch is attached to let the
script indent the same file this way:

---------- test.pl -------------
sub aa() {
        my $a;
        if (aaa) {
                if (bbb) {
                        ccc
                }
                return 1;
        }
}
-------------------------------


                Bye. Alex.
--~--~---------~--~----~------------~-------~--~----~
You received this message from the "vim_dev" maillist.
For more information, visit http://www.vim.org/maillist.php
-~----------~----~----~----~------~----~------~--~---


--- perl.vim.orig       2008-09-24 17:23:58.000000000 +0400
+++ perl.vim    2008-11-17 00:56:17.000000000 +0300
@@ -131,6 +131,8 @@
       " 'perlHereDoc' is here only to handle the case '&foo(<<EOF)'.
       if synid == ""
            \ || synid == "perlMatchStartEnd"
+           \ || synid == "perlBlockFold"
+           \ || synid == "perlSubFold"
            \ || synid == "perlHereDoc"
            \ || synid =~ "^perlFiledescStatement"
            \ || synid =~ '^perl\(Sub\|BEGINEND\|If\)Fold'
@@ -148,6 +150,8 @@
       let synid = synIDattr(synID(v:lnum, bracepos, 0), "name")
       if synid == ""
            \ || synid == "perlMatchStartEnd"
+           \ || synid == "perlBlockFold"
+           \ || synid == "perlSubFold"
            \ || synid =~ '^perl\(Sub\|BEGINEND\|If\)Fold'
        let ind = ind - &sw
       endif