diff plugins/perl/common/Makefile.PL.in @ 6588:7f5f57dd5cac

[gaim-migrate @ 7110] I'm breaking debug. I cannot for the life of me figure out the enum stuff in perl XSUB. Everything is ending up 0 (in other words, it's probably not finding them). So, people can use debug_info and such. committer: Tailor Script <[e-mail]>

--- a/plugins/perl/common/Makefile.PL.in	Sat Aug 23 23:09:14 2003 +0000
+++ b/plugins/perl/common/Makefile.PL.in	Sun Aug 24 01:08:32 2003 +0000
@@ -14,3 +14,15 @@
     'INC'		=> '-I. -I@top_srcdir@ -I@top_srcdir@/src @GLIB_CFLAGS@', # e.g., '-I. -I/usr/include/other'
     'OBJECT'		=> '$(O_FILES)', # link all the C files too
 );
+
+if (eval {require ExtUtils::Constant; 1}) {
+	foreach (qw(GAIM_DEBUG_ALL GAIM_DEBUG_MISC GAIM_DEBUG_INFO
+	            GAIM_DEBUG_WARNING GAIM_DEBUG_ERROR GAIM_DEBUG_FATAL)) {
+		push @names, {name => $_, type => "IV", macro => 1};
+	}
+
+	ExtUtils::Constant::WriteConstants(
+		NAME  => 'Gaim::DebugLevel',
+		NAMES => \@names
+	);
+}