From 6a17cc237e4911775162a05b6cb3b89e4171a15b Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Mon, 21 Apr 2008 02:17:12 -0500
Subject: mark functions whose parameter list we can't figure out, since they
 use shift or @_ in unexpected ways

---
 vimrc | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/vimrc b/vimrc
index ab00b78..66adf1b 100644
--- a/vimrc
+++ b/vimrc
@@ -268,6 +268,7 @@ function Perl_foldtext()
             if !empty(rest_line)
                 let rest_params = split(rest_line[1], ',\s*')
                 let params += rest_params
+                let linenum += 1
                 break
             endif
 
@@ -275,6 +276,7 @@ function Perl_foldtext()
             let array_line = matchlist(next_line, 'my\s*\(@\w\+\)\s*=\s*@_;')
             if !empty(array_line)
                 let params += [array_line[1]]
+                let linenum += 1
                 break
             endif
 
@@ -282,6 +284,7 @@ function Perl_foldtext()
             let hash_line = matchlist(next_line, 'my\s*%\w\+\s*=\s*@_;')
             if !empty(hash_line)
                 let params += ['paramhash']
+                let linenum += 1
                 break
             endif
 
@@ -289,6 +292,10 @@ function Perl_foldtext()
             break
         endwhile
 
+        if join(getline(linenum, v:foldend)) =~ '\%(shift\%(\s*@\)\@!\|@_\)'
+            let params += ['unknown']
+        endif
+
         return Base_foldtext(sub_type . ' ' . matches[2] .
         \                    '(' . join(params, ', ') . ')')
     endif
-- 
cgit v1.2.3-54-g00ecf