Fix up .gitignore files some more

[p5sagit/p5-mst-13.2.git] / ext / DB_File / Makefile.PL

diff --git a/ext/DB_File/Makefile.PL b/ext/DB_File/Makefile.PL
index cac6578..93f3895 100644 (file)
--- a/ext/DB_File/Makefile.PL
+++ b/ext/DB_File/Makefile.PL
@@ -1,4 +1,8 @@
-use ExtUtils::MakeMaker 5.16 ;
+use strict;
+use warnings;
+
+use ExtUtils::MakeMaker ;
+use ExtUtils::Constant qw(WriteConstants);
 use Config ;
 
 # OS2 is a special case, so check for it now.
@@ -17,12 +21,80 @@ WriteMakefile(
        OBJECT          => 'version$(OBJ_EXT) DB_File$(OBJ_EXT)',
        XSPROTOARG      => '-noprototypes',
        DEFINE          => $OS2 || "",
+       INC             => ($^O eq "MacOS" ? "-i ::::db:include" : ""),
+        XS_VERSION      => eval MM->parse_version('DB_File.pm'),
+    ((ExtUtils::MakeMaker->VERSION() gt '6.30')
+            ?  ('LICENSE'  => 'perl')
+            : ()
+    ),
+    (
+        $] >= 5.005
+            ? (ABSTRACT_FROM => 'DB_File.pm',
+                AUTHOR       => 'Paul Marquess <pmqs@cpan.org>')
+            : ()
+    ),
+
+       'depend'        => {'version$(OBJ_EXT)' => 'version.c'},
+       'clean'         => {FILES => 'constants.h constants.xs'},
        );
 
-sub MY::postamble {
-      '
-version$(OBJ_EXT):     version.c
+my @names = qw(
+       BTREEMAGIC
+       BTREEVERSION
+       DB_LOCK
+       DB_SHMEM
+       DB_TXN
+       HASHMAGIC
+       HASHVERSION
+       MAX_PAGE_NUMBER
+       MAX_PAGE_OFFSET
+       MAX_REC_NUMBER
+       RET_ERROR
+       RET_SPECIAL
+       RET_SUCCESS
+       R_CURSOR
+       R_DUP
+       R_FIRST
+       R_FIXEDLEN
+       R_IAFTER
+       R_IBEFORE
+       R_LAST
+       R_NEXT
+       R_NOKEY
+       R_NOOVERWRITE
+       R_PREV
+       R_RECNOSYNC
+       R_SETCURSOR
+       R_SNAPSHOT
+       __R_UNUSED
+       );
+
+    # Check the constants above all appear in @EXPORT in DB_File.pm
+    my %names = map { $_, 1} @names;
+    open F, "<DB_File.pm" or die "Cannot open DB_File.pm: $!\n";
+    while (<F>)
+    {
+        last if /^\s*\@EXPORT\s+=\s+qw\(/ ;
+    }
+
+    while (<F>)
+    {
+        last if /^\s*\)/ ;
+        /(\S+)/ ;
+        delete $names{$1} if defined $1 ;
+    }
+    close F ;
 
-' ;
-}
+    if ( keys %names )
+    {
+        my $missing = join ("\n\t", sort keys %names) ;
+        die "The following names are missing from \@EXPORT in DB_File.pm\n" .
+            "\t$missing\n" ;
+    }
+    
 
+    WriteConstants( NAME => 'DB_File',
+                    NAMES => \@names,
+                    C_FILE  => 'constants.h',
+                    XS_FILE  => 'constants.xs',
+                  );