diff -r b98e72d4089a -r 77693555855f libgaim/plugins/perl/common/Makefile.PL.in
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libgaim/plugins/perl/common/Makefile.PL.in	Sun May 20 06:19:49 2007 +0000
@@ -0,0 +1,39 @@
+use 5.006;
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    'NAME'		=> 'Gaim',
+    'VERSION_FROM'	=> '@srcdir@/Gaim.pm', # finds $VERSION
+    'PREREQ_PM'		=> {}, # e.g., Module::Name => 1.1
+    ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
+      (ABSTRACT_FROM => '@srcdir@/Gaim.pm', # retrieve abstract from module
+       AUTHOR     => 'Gaim <http://gaim.sourceforge.net/>') : ()),
+    'LIBS'		=> [''], # e.g., '-lm'
+    'DEFINE'		=> '@DEBUG_CFLAGS@', # e.g., '-DHAVE_SOMETHING'
+    'INC'		=> '-I. -I@srcdir@ -I@top_srcdir@ -I@top_srcdir@/libgaim @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,
+		C_FILE  => 'const-c.inc',
+		XS_FILE => 'const-xs.inc'
+	);
+}
+else {
+	use File::Copy;
+	use File::Spec;
+
+	foreach my $file ('const-c.inc', 'const-xs.inc') {
+		my $fallback = File::Spec->catfile('fallback', $file);
+		copy ($fallback, $file) or die "Can't copy $fallback to $file: $!";
+	}
+}