[cairo-commit] cairo-perl ChangeLog, 1.103, 1.104 MakeHelper.pm, 1.12, 1.13

[Torsten Schoenfeld]

Committed by: tsch

Update of /cvs/cairo/cairo-perl
In directory kemper:/tmp/cvs-serv11461

Modified Files:
	ChangeLog MakeHelper.pm 
Log Message:
	* MakeHelper.pm: Use the correct enum type instead of int for the
	enum converters.


Index: ChangeLog
===================================================================
RCS file: /cvs/cairo/cairo-perl/ChangeLog,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -d -r1.103 -r1.104
--- ChangeLog	5 Oct 2008 19:59:40 -0000	1.103
+++ ChangeLog	5 Oct 2008 21:21:16 -0000	1.104
@@ -1,5 +1,10 @@
 2008-10-05  Torsten Schoenfeld  <kaffeetisch at gmx.de>
 
+	* MakeHelper.pm: Use the correct enum type instead of int for the
+	enum converters.
+
+2008-10-05  Torsten Schoenfeld  <kaffeetisch at gmx.de>
+
 	* Cairo.pm:
 	* Cairo.xs:
 	* CairoFont.xs:

Index: MakeHelper.pm
===================================================================
RCS file: /cvs/cairo/cairo-perl/MakeHelper.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- MakeHelper.pm	5 Oct 2008 19:59:40 -0000	1.12
+++ MakeHelper.pm	5 Oct 2008 21:21:16 -0000	1.13
@@ -253,8 +253,8 @@
 		}
 
 		print HEADER <<"EOS";
-int cairo_${name}_from_sv (SV * $name);
-SV * cairo_${name}_to_sv (int val);
+$type cairo_${name}_from_sv (SV * $name);
+SV * cairo_${name}_to_sv ($type val);
 #define Sv$mangled(sv)		(cairo_${name}_from_sv (sv))
 #define newSV$mangled(val)	(cairo_${name}_to_sv (val))
 EOS
@@ -371,7 +371,7 @@
 		}
 
 		print ENUMS <<"EOS";
-int
+$type
 cairo_${name}_from_sv (SV * $name)
 {
 	char * str = SvPV_nolen ($name);
@@ -383,7 +383,7 @@
 }
 
 SV *
-cairo_${name}_to_sv (int val)
+cairo_${name}_to_sv ($type val)
 {
 	$tree_to
 	warn ("unknown $type value %d encountered", val);