--- a/.vim/ftplugin/perl_hs12.vim	Fri Sep 06 08:47:34 2013 +0200
+++ b/.vim/ftplugin/perl_hs12.vim	Sat Jan 18 22:58:22 2014 +0100
@@ -18,19 +18,24 @@
 
 function! HS_format()
 
-    let dir = fnamemodify(expand("%"), ":p:h")
-    let rc = dir . "/.perltidyrc"
-    if filereadable(rc) != 1
-	echo "HEHE, no .perltidyrc in " . dir
-	return
-    endif
-
-    let old = &equalprg
-    let &equalprg = "perltidy -pro=" . rc
-    normal gg=G
-    normal ``
-    let &equalprg = old
-    
+    let dir = expand("%:p:h")
+    let home = fnamemodify($HOME, ":h")
+    while dir != home
+	let rc = dir . "/.perltidyrc"
+	if filereadable(rc) == 1
+	    let old = &equalprg
+	    echo "using " rc
+	    sleep 1
+	    let &equalprg = "perltidy -pro=" . rc
+	    normal gg=G
+	    normal ``
+	    let &equalprg = old
+	    return
+	endif
+	let dir = fnamemodify(dir, ":h")
+    endwhile
+    echo "no .perltidyrc found up the path to " $HOME
+   
 endfunc
 
 function! HS_pod()