4 use ExtUtils::MakeMaker 5.16 ;
7 die "DB_File needs Perl 5.004_05 or better. This is $]\n"
19 my @files = ('DB_File.pm', glob "t/*.t") ;
26 { $LIBS = $Config{cc} =~ /gcc/ ? '-ldb' : '-llibdb' }
32 #$LIBS .= " -lthread" if $^O eq 'solaris' ;
35 $LIBS .= " -lpthread" if $^O eq 'aix' ;
37 # OS2 is a special case, so check for it now.
39 $OS2 = "-DOS2" if $Config{'osname'} eq 'os2' ;
46 LIBS => ["-L${LIB_DIR} $LIBS"],
47 #MAN3PODS => {}, # Pods will be built by installman.
49 VERSION_FROM => 'DB_File.pm',
50 XS_VERSION => eval MM->parse_version('DB_File.pm'),
51 XSPROTOARG => '-noprototypes',
52 DEFINE => "-D_NOT_CORE $OS2 $VER_INFO $COMPAT185 $WALL",
53 OBJECT => 'version$(OBJ_EXT) DB_File$(OBJ_EXT)',
54 ((ExtUtils::MakeMaker->VERSION() gt '6.30')
55 ? ('LICENSE' => 'perl')
60 ? (ABSTRACT_FROM => 'DB_File.pm',
61 AUTHOR => 'Paul Marquess <pmqs@cpan.org>')
67 'depend' => { 'Makefile' => 'config.in',
68 'version$(OBJ_EXT)' => 'version.c'},
69 'clean' => { FILES => 'constants.h constants.xs' },
70 'macro' => { INSTALLDIRS => 'perl', my_files => "@files" },
71 'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz',
72 DIST_DEFAULT => 'MyDoubleCheck tardist'},
107 if (eval {require ExtUtils::Constant; 1}) {
108 # Check the constants above all appear in @EXPORT in DB_File.pm
109 my %names = map { $_, 1} @names;
110 open F, "<DB_File.pm" or die "Cannot open DB_File.pm: $!\n";
113 last if /^\s*\@EXPORT\s+=\s+qw\(/ ;
120 delete $names{$1} if defined $1 ;
126 my $missing = join ("\n\t", sort keys %names) ;
127 die "The following names are missing from \@EXPORT in DB_File.pm\n" .
132 ExtUtils::Constant::WriteConstants(
135 C_FILE => 'constants.h',
136 XS_FILE => 'constants.xs',
142 copy ('fallback.h', 'constants.h')
143 or die "Can't copy fallback.h to constants.h: $!";
144 copy ('fallback.xs', 'constants.xs')
145 or die "Can't copy fallback.xs to constants.xs: $!";
157 if $path =~ /(~|\.bak)$/ ||
158 $path =~ /^\..*\.swp$/ ;
164 sub MY::postamble { <<'EOM' } ;
167 @echo Checking config.in is setup for a release
168 @(grep "^LIB.*/usr/local/BerkeleyDB" config.in && \
169 grep "^INCLUDE.*/usr/local/BerkeleyDB" config.in && \
170 grep "^#DBNAME.*" config.in) >/dev/null || \
171 (echo config.in needs fixing ; exit 1)
172 @echo config.in is ok
174 @echo Checking DB_File.xs is ok for a release.
175 @(perl -ne ' exit 1 if /^\s*#\s*define\s+TRACE/ ; ' DB_File.xs || \
176 (echo DB_File.xs needs fixing ; exit 1))
177 @echo DB_File.xs is ok
179 @echo Checking for $$^W in files: $(my_files)
181 exit 1 if /^\s*local\s*\(\s*\$$\^W\s*\)/;' $(my_files) || \
182 (echo found unexpected $$^W ; exit 1)
185 @echo Checking for 'use vars' in files: $(my_files)
187 exit 0 if /^__(DATA|END)__/; \
188 exit 1 if /^\s*use\s+vars/;' $(my_files) || \
189 (echo found unexpected "use vars"; exit 1)
190 @echo No 'use vars' found.
192 @echo All files are OK for a release.
204 my @Options = qw( INCLUDE LIB PREFIX HASH DBNAME COMPAT185 ) ;
205 my %ValidOption = map {$_, 1} @Options ;
206 my %Parsed = %ValidOption ;
207 my $CONFIG = 'config.in' ;
209 print "Parsing $CONFIG...\n" ;
211 # DBNAME & COMPAT185 are optional, so pretend they have
213 delete $Parsed{'DBNAME'} ;
214 delete $Parsed{'COMPAT185'} ;
215 $Info{COMPAT185} = "No" ;
218 open(F, "$CONFIG") or die "Cannot open file $CONFIG: $!\n" ;
221 next if /^\s*$/ or /^\s*#/ ;
224 ($k, $v) = split(/\s+=\s+/, $_, 2) ;
226 if ($ValidOption{$k}) {
236 print "Unknown keys in $CONFIG ignored [@badkey]\n"
239 # check parsed values
241 die "The following keys are missing from $CONFIG file: [@missing]\n"
242 if @missing = keys %Parsed ;
244 $INC_DIR = $ENV{'DB_FILE_INCLUDE'} || $Info{'INCLUDE'} ;
245 $LIB_DIR = $ENV{'DB_FILE_LIB'} || $Info{'LIB'} ;
246 $DB_NAME = $ENV{'DB_FILE_NAME'} || $Info{'DBNAME'} ;
247 $COMPAT185 = "-DCOMPAT185 -DDB_LIBRARY_COMPATIBILITY_API"
248 if (defined $ENV{'DB_FILE_COMPAT185'} &&
249 $ENV{'DB_FILE_COMPAT185'} =~ /^\s*(on|true|1)\s*$/i) ||
250 $Info{'COMPAT185'} =~ /^\s*(on|true|1)\s*$/i ;
251 my $PREFIX = $Info{'PREFIX'} ;
252 my $HASH = $Info{'HASH'} ;
254 $VER_INFO = "-DmDB_Prefix_t=${PREFIX} -DmDB_Hash_t=${HASH}" ;
265 print "Looks Good.\n" ;
273 # our is stable from 5.6.0 onward
274 # warnings is stable from 5.6.1 onward
276 # Note: this code assumes that each statement it modifies is not
277 # split across multiple lines.
284 # From: use|no warnings "blah"
285 # To: local ($^W) = 1; # use|no warnings "blah"
289 # From: warnings::warnif(x,y);
290 # To: $^W && carp(y); # warnif -- x
292 s/^(\s*)(no\s+warnings)/${1}local (\$^W) = 0; #$2/ ;
293 s/^(\s*)(use\s+warnings)/${1}local (\$^W) = 1; #$2/ ;
295 s/^(\s*)warnings::warnif\s*\((.*?)\s*,\s*(.*?)\)\s*;/${1}\$^W && carp($3); # warnif - $2/ ;
299 # From: local ($^W) = 1; # use|no warnings "blah"
300 # To: use|no warnings "blah"
304 # From: $^W && carp(y); # warnif -- x
305 # To: warnings::warnif(x,y);
307 s/^(\s*)local\s*\(\$\^W\)\s*=\s*\d+\s*;\s*#\s*((no|use)\s+warnings.*)/$1$2/ ;
308 s/^(\s*)\$\^W\s+\&\&\s*carp\s*\((.*?)\)\s*;\s*#\s*warnif\s*-\s*(.*)/${1}warnings::warnif($3, $2);/ ;
314 if ( /^(\s*)our\s+\(\s*([^)]+\s*)\)/ ) {
316 my $vars = join ' ', split /\s*,\s*/, $2;
317 $_ = "${indent}use vars qw($vars);\n";
323 if ( /^(\s*)use\s+vars\s+qw\((.*?)\)/ ) {
325 my $vars = join ', ', split ' ', $2;
326 $_ = "${indent}our ($vars);\n";
332 { doUpDown($our_sub, $warn_sub, $_) }
339 my $warn_sub = shift;
341 local ($^I) = ".bak" ;
342 local (@ARGV) = shift;
346 print, last if /^__(END|DATA)__/ ;
359 # end of file Makefile.PL