From 6f1f16c3ca0f6fe076ae795de6a700302512cd7b Mon Sep 17 00:00:00 2001
From: perlguy0 <perlguy0@c5d04d22-be80-434c-894e-aa346cc9e8e8>
Date: Mon, 16 Dec 2013 05:50:55 +0000
Subject: [PATCH] Fixed a bug in the way package names are parsed.

If package keyword and the package names were on separate lines, the
parser would read past the end of the line.


git-svn-id: svn://svn.code.sf.net/p/ctags/code/trunk@807 c5d04d22-be80-434c-894e-aa346cc9e8e8
---
 perl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl.c b/perl.c
index 6b4ae66..803ffee 100644
--- a/perl.c
+++ b/perl.c
@@ -355,7 +355,7 @@ static void findPerlTags (void)
 				vStringClear (package);
 			while (isspace (*cp))
 				cp++;
-			while ((int) *cp != ';'  &&  !isspace ((int) *cp))
+			while (*cp && (int) *cp != ';'  &&  !isspace ((int) *cp))
 			{
 				vStringPut (package, (int) *cp);
 				cp++;