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 02f28c4..ebee26e 100644 (file)
--- a/ext/SDBM_File/Makefile.PL
+++ b/ext/SDBM_File/Makefile.PL
@@ -2,8 +2,8 @@ use strict; use warnings;
 use ExtUtils::MakeMaker;
 
 my $define = '-DSDBM -DDUFF';
-# no -DMSDOS because MSDOS and WIN32 treated same in code
-$define .= ' -DWIN32 -DPERL_STATIC_SYMS' if $^O eq 'MSWin32';
+
+my $dirfext = $^O eq 'VMS' ? '.sdbm_dir' : '.dir';
 
 WriteMakefile(
     NAME      => 'SDBM_File',
@@ -11,7 +11,7 @@ WriteMakefile(
     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 *.dir *.pag'},
+    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)],
 );