# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 967684059 0
# Node ID 2f0655e185b8428b868ed2d024c6151969a98a9b
# Parent  17def2bb9720044b9e931c1ec86ea0ef410870b6
[gaim-migrate @ 815]
this would be a good check

committer: Tailor Script <tailor@pidgin.im>

diff -r 17def2bb9720 -r 2f0655e185b8 src/perl.c
--- 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));
 }