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"],
48 VERSION_FROM => 'DB_File.pm',
49 XS_VERSION => eval MM->parse_version('DB_File.pm'),
50 XSPROTOARG => '-noprototypes',
51 DEFINE => "-D_NOT_CORE $OS2 $VER_INFO $COMPAT185 $WALL",
52 OBJECT => 'version$(OBJ_EXT) DB_File$(OBJ_EXT)',
53 ((ExtUtils::MakeMaker->VERSION() gt '6.30')
54 ? ('LICENSE' => 'perl')
59 ? (ABSTRACT_FROM => 'DB_File.pm',
60 AUTHOR => 'Paul Marquess <pmqs@cpan.org>')
66 'depend' => { 'Makefile' => 'config.in',
67 'version$(OBJ_EXT)' => 'version.c'},
68 'clean' => { FILES => 'constants.h constants.xs' },
69 'macro' => { INSTALLDIRS => 'perl', my_files => "@files" },
70 'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz',
71 DIST_DEFAULT => 'MyDoubleCheck tardist'},
106 if (eval {require ExtUtils::Constant; 1}) {
107 # Check the constants above all appear in @EXPORT in DB_File.pm
108 my %names = map { $_, 1} @names;
109 open F, "<DB_File.pm" or die "Cannot open DB_File.pm: $!\n";
112 last if /^\s*\@EXPORT\s+=\s+qw\(/ ;
119 delete $names{$1} if defined $1 ;
125 my $missing = join ("\n\t", sort keys %names) ;
126 die "The following names are missing from \@EXPORT in DB_File.pm\n" .
131 ExtUtils::Constant::WriteConstants(
134 C_FILE => 'constants.h',
135 XS_FILE => 'constants.xs',
141 copy ('fallback.h', 'constants.h')
142 or die "Can't copy fallback.h to constants.h: $!";
143 copy ('fallback.xs', 'constants.xs')
144 or die "Can't copy fallback.xs to constants.xs: $!";
156 if $path =~ /(~|\.bak)$/ ||
157 $path =~ /^\..*\.swp$/ ;
163 sub MY::postamble { <<'EOM' } ;
166 @echo Checking config.in is setup for a release
167 @(grep "^LIB.*/usr/local/BerkeleyDB" config.in && \
168 grep "^INCLUDE.*/usr/local/BerkeleyDB" config.in && \
169 grep "^#DBNAME.*" config.in) >/dev/null || \
170 (echo config.in needs fixing ; exit 1)
171 @echo config.in is ok
173 @echo Checking DB_File.xs is ok for a release.
174 @(perl -ne ' exit 1 if /^\s*#\s*define\s+TRACE/ ; ' DB_File.xs || \
175 (echo DB_File.xs needs fixing ; exit 1))
176 @echo DB_File.xs is ok
178 @echo Checking for $$^W in files: $(my_files)
180 exit 1 if /^\s*local\s*\(\s*\$$\^W\s*\)/;' $(my_files) || \
181 (echo found unexpected $$^W ; exit 1)
184 @echo Checking for 'use vars' in files: $(my_files)
186 exit 0 if /^__(DATA|END)__/; \
187 exit 1 if /^\s*use\s+vars/;' $(my_files) || \
188 (echo found unexpected "use vars"; exit 1)
189 @echo No 'use vars' found.
191 @echo All files are OK for a release.
203 my @Options = qw( INCLUDE LIB PREFIX HASH DBNAME COMPAT185 ) ;
204 my %ValidOption = map {$_, 1} @Options ;
205 my %Parsed = %ValidOption ;
206 my $CONFIG = 'config.in' ;
208 print "Parsing $CONFIG...\n" ;
210 # DBNAME & COMPAT185 are optional, so pretend they have
212 delete $Parsed{'DBNAME'} ;
213 delete $Parsed{'COMPAT185'} ;
214 $Info{COMPAT185} = "No" ;
217 open(F, "$CONFIG") or die "Cannot open file $CONFIG: $!\n" ;
220 next if /^\s*$/ or /^\s*#/ ;
223 ($k, $v) = split(/\s+=\s+/, $_, 2) ;
225 if ($ValidOption{$k}) {
235 print "Unknown keys in $CONFIG ignored [@badkey]\n"
238 # check parsed values
240 die "The following keys are missing from $CONFIG file: [@missing]\n"
241 if @missing = keys %Parsed ;
243 $INC_DIR = $ENV{'DB_FILE_INCLUDE'} || $Info{'INCLUDE'} ;
244 $LIB_DIR = $ENV{'DB_FILE_LIB'} || $Info{'LIB'} ;
245 $DB_NAME = $ENV{'DB_FILE_NAME'} || $Info{'DBNAME'} ;
246 $COMPAT185 = "-DCOMPAT185 -DDB_LIBRARY_COMPATIBILITY_API"
247 if (defined $ENV{'DB_FILE_COMPAT185'} &&
248 $ENV{'DB_FILE_COMPAT185'} =~ /^\s*(on|true|1)\s*$/i) ||
249 $Info{'COMPAT185'} =~ /^\s*(on|true|1)\s*$/i ;
250 my $PREFIX = $Info{'PREFIX'} ;
251 my $HASH = $Info{'HASH'} ;
253 $VER_INFO = "-DmDB_Prefix_t=${PREFIX} -DmDB_Hash_t=${HASH}" ;
264 print "Looks Good.\n" ;
272 # our is stable from 5.6.0 onward
273 # warnings is stable from 5.6.1 onward
275 # Note: this code assumes that each statement it modifies is not
276 # split across multiple lines.
283 # From: use|no warnings "blah"
284 # To: local ($^W) = 1; # use|no warnings "blah"
288 # From: warnings::warnif(x,y);
289 # To: $^W && carp(y); # warnif -- x
291 s/^(\s*)(no\s+warnings)/${1}local (\$^W) = 0; #$2/ ;
292 s/^(\s*)(use\s+warnings)/${1}local (\$^W) = 1; #$2/ ;
294 s/^(\s*)warnings::warnif\s*\((.*?)\s*,\s*(.*?)\)\s*;/${1}\$^W && carp($3); # warnif - $2/ ;
298 # From: local ($^W) = 1; # use|no warnings "blah"
299 # To: use|no warnings "blah"
303 # From: $^W && carp(y); # warnif -- x
304 # To: warnings::warnif(x,y);
306 s/^(\s*)local\s*\(\$\^W\)\s*=\s*\d+\s*;\s*#\s*((no|use)\s+warnings.*)/$1$2/ ;
307 s/^(\s*)\$\^W\s+\&\&\s*carp\s*\((.*?)\)\s*;\s*#\s*warnif\s*-\s*(.*)/${1}warnings::warnif($3, $2);/ ;
313 if ( /^(\s*)our\s+\(\s*([^)]+\s*)\)/ ) {
315 my $vars = join ' ', split /\s*,\s*/, $2;
316 $_ = "${indent}use vars qw($vars);\n";
322 if ( /^(\s*)use\s+vars\s+qw\((.*?)\)/ ) {
324 my $vars = join ', ', split ' ', $2;
325 $_ = "${indent}our ($vars);\n";
331 { doUpDown($our_sub, $warn_sub, $_) }
338 my $warn_sub = shift;
340 local ($^I) = ".bak" ;
341 local (@ARGV) = shift;
345 print, last if /^__(END|DATA)__/ ;
358 # end of file Makefile.PL