avoid double-freeing regex code blocks

[perl5.git] / ext / SDBM_File / Makefile.PL

diff --git a/ext/SDBM_File/Makefile.PL b/ext/SDBM_File/Makefile.PL
index b639b29..ebee26e 100644 (file)
--- a/ext/SDBM_File/Makefile.PL
+++ b/ext/SDBM_File/Makefile.PL
@@ -1,35 +1,17 @@
+use strict; use warnings;
 use ExtUtils::MakeMaker;
 
-# The existence of the ./sdbm/Makefile.PL file causes MakeMaker
-# to automatically include Makefile code for the targets
-#      config, all, clean, realclean and sdbm/Makefile
-# which perform the corresponding actions in the subdirectory.
+my $define = '-DSDBM -DDUFF';
 
-$define = ($^O eq 'MSWin32') ? '-DMSDOS' : '';
-if ($^O eq 'MSWin32') { $myextlib = 'sdbm\\libsdbm$(LIB_EXT)'; }
-else                  { $myextlib = 'sdbm/libsdbm$(LIB_EXT)';  }
+my $dirfext = $^O eq 'VMS' ? '.sdbm_dir' : '.dir';
 
 WriteMakefile(
-              NAME     => 'SDBM_File',
-              MYEXTLIB => $myextlib,
-              MAN3PODS         => ' ',         # Pods will be built by installman.
-              XSPROTOARG => '-noprototypes',           # XXX remove later?
-              VERSION_FROM => 'SDBM_File.pm',
-              DEFINE => $define,
-             );
-
-sub MY::postamble {
-  if ($^O ne 'VMS') {
-    '
-$(MYEXTLIB): sdbm/Makefile
-       cd sdbm && $(MAKE) all
-';
-  } else {
-  '   
-$(MYEXTLIB) : [.sdbm]descrip.mms
-       set def [.sdbm]
-    $(MMS) all
-    set def [-]
-';  
-  }
-}
+    NAME      => 'SDBM_File',
+    VERSION_FROM => 'SDBM_File.pm',
+    DEFINE    => $define,
+    INC       => '-I$(PERL_INC)', # force PERL_INC dir ahead of system -I's
+    OBJECT    => '$(O_FILES)',
+    clean     => {'FILES' => "dbu dbd dba dbe x-dbu *${dirfext} *.pag"},
+    H         => [qw(tune.h sdbm.h pair.h $(PERL_INC)/config.h)],
+    C         => [qw(SDBM_File.c sdbm.c pair.c hash.c)],
+);