Mercurial > pidgin
diff libpurple/plugins/perl/common/Makefile.PL.in @ 16739:39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
exposed to perl.
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Tue, 01 May 2007 02:34:22 +0000 |
parents | ca09f5b57672 |
children | 77177e6000e4 |
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/Makefile.PL.in Mon Apr 30 05:06:29 2007 +0000 +++ b/libpurple/plugins/perl/common/Makefile.PL.in Tue May 01 02:34:22 2007 +0000 @@ -14,26 +14,3 @@ 'OBJECT' => '$(O_FILES)', # link all the C files too # 'OPTIMIZE' => '-g', # For debugging ); - -if (eval {require ExtUtils::Constant; 1}) { - foreach (qw(PURPLE_DEBUG_ALL PURPLE_DEBUG_MISC PURPLE_DEBUG_INFO - PURPLE_DEBUG_WARNING PURPLE_DEBUG_ERROR PURPLE_DEBUG_FATAL)) { - push @names, {name => $_, type => "IV", macro => 1}; - } - - ExtUtils::Constant::WriteConstants( - NAME => 'Purple::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: $!"; - } -}