From 52eade751f764e9ec379022addeedec667f946c0 Mon Sep 17 00:00:00 2001
From: Oleg Puchinin <oleg@linux-6658.site>
Date: Sun, 24 Aug 2008 17:11:55 +0700
Subject: [PATCH] Perl plugin ctags error fixed

---
 silentbob/plugins/plugin_perl.cxx | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/silentbob/plugins/plugin_perl.cxx b/silentbob/plugins/plugin_perl.cxx
index bd8bb80..053929d 100644
--- a/silentbob/plugins/plugin_perl.cxx
+++ b/silentbob/plugins/plugin_perl.cxx
@@ -73,6 +73,7 @@ void pl_package (struct tt_state_t *tt, int line, char * d_out, char ch)
 	if (! S)
 		return;
 
+	++S;
 	strip2 (S);
 
 	ptr = rindex (S, ':');
@@ -91,12 +92,12 @@ void perl_make_tag (struct tt_state_t *tt, char * d_out, char ch)
 	if (*d_out == ' ')
 		++d_out;
 
-	if (ch == '{' && (! strncmp (d_out, "sub ", 4))) {
+	if ((ch == '{') && (! strncmp (d_out, "sub ", 4))) {
 		pl_sub (tt, line, d_out, ch);
 		return;
 	}
 	
-	if (ch == ';' && (! strncmp (d_out, "package ", 8))) {
+	if ((ch == ';') && (! strncmp (d_out, "package ", 8))) {
 		pl_package (tt, line, d_out, ch);
 		return;
 	}
@@ -168,6 +169,7 @@ int perl_make_ctags (char * f_name, FILE * of)
 			block_depth = 0;
 	}
 	
+	fflush (ofile);
 	free_tt_state (tt);
 	return 0;
 }
-- 
2.11.4.GIT