[svn:ponie] r348 - trunk/perl

Author: nicholas
Date: Mon Aug 29 05:37:08 2005
New Revision: 348

Modified:
   trunk/perl/perl.c
Log:
Off-by-one error would cause a "\0" to be printed.


Modified: trunk/perl/perl.c
==============================================================================
--- trunk/perl/perl.c	(original)
+++ trunk/perl/perl.c	Mon Aug 29 05:37:08 2005
@@ -238,7 +238,7 @@ type_or_bail (const char *typename) {
 
     if (!type) {
 	const char *bail = "Could not find PMC type '";
-	write(2, bail, strlen(bail) + 1);
+	write(2, bail, strlen(bail));
 	write(2, typename, strlen(typename));
 	write(2, "'\n", 2);
 	abort();