From f3c73befd2cad1813ba868b832907cbd8c828662 Mon Sep 17 00:00:00 2001
From: Martin Baulig <martin@src.gnome.org>
Date: Sat, 10 Oct 1998 19:03:39 +0000
Subject: [PATCH] Small bug fix.

---
 perl/perl.awk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/perl.awk b/perl/perl.awk
index 47198f1c..18285d87 100644
--- a/perl/perl.awk
+++ b/perl/perl.awk
@@ -27,7 +27,7 @@ BEGIN {
   print "init (CLASS)";
   print "\tchar *CLASS;";
   print "CODE:";
-  print "\tRETVAL = glibtop_calloc (1, sizeof (glibtop *));";
+  print "\tRETVAL = glibtop_calloc (1, sizeof (glibtop));";
   print "\tglibtop_init_s (&RETVAL, 0, 0);";
   print "OUTPUT:";
   print "\tRETVAL";