changeset 805:2f0655e185b8

[gaim-migrate @ 815] this would be a good check committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Thu, 31 Aug 2000 01:07:39 +0000
parents 17def2bb9720
children 67bdecdecbb7
files src/perl.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/perl.c	Thu Aug 31 00:25:25 2000 +0000
+++ b/src/perl.c	Thu Aug 31 01:07:39 2000 +0000
@@ -150,6 +150,7 @@
 	if (!filename[0]) return 0;
 	len = strlen(filename);
 	len -= 3;
+	if (len < 0) return 0;
 	return (!strncmp(filename + len, ".pl", 3));
 }