Imported from /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz.HEADDBD-SQLite-1.38_01masterbaserock/morph

1 files changed, 408 insertions, 0 deletions

diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..bd55289
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,408 @@
+# From ExtUtils::MakeMaker 6.48 and DBI 1.43
+use 5.006;
+use strict;
+use ExtUtils::MakeMaker;
+use Config;
+use File::Spec;
+
+# Some dependencies need to be more aggressive on Windows
+sub WINLIKE () {
+	return 1 if $^O eq 'MSWin32';
+	return 1 if $^O eq 'cygwin';
+	return '';
+}
+
+# Make setting optional MakeMaker parameters more readable
+sub OPTIONAL {
+	return () unless $ExtUtils::MakeMaker::VERSION ge shift;
+	return @_;
+}
+
+# Are we upgrading from a critically out of date version?
+eval {
+	require DBD::SQLite;
+	if ( $DBD::SQLite::VERSION < 1.0 ) {
+		print <<EOT;
+
+**** WARNING **** WARNING **** WARNING **** WARNING **** WARNING ****
+
+Your version of DBD::SQLite currently installed ($DBD::SQLite::VERSION) uses
+the old sqlite database format. This version of DBD::SQLite will *NOT*
+open these files, and installing this module may cause problems on your
+system. If this is a live environment you should upgrade with caution.
+
+To upgrade a database, download and install both sqlite 2.x and 3.x from
+http://www.sqlite.org/ and issue:
+
+  sqlite OLD.DB .dump | sqlite3 NEW.DB
+
+DBD::SQLite will NOT automatically upgrade a database for you, and using
+this version against an old SQLite database WILL lead to database
+corruption.
+
+EOT
+		if ( prompt("Continue?", "N") !~ /^y/i ) {
+			print "Exiting\n";
+			exit(-1);
+		}
+	}
+};
+
+# Because DBI generates a postamble at configure-time, we need
+# the required version of DBI very early.
+my $DBI_required = 1.57;
+eval {
+	require DBI;
+};
+if ( $@ or DBI->VERSION < $DBI_required ) {
+	print "DBI 1.57 is required to configure this module; please install it or upgrade your CPAN/CPANPLUS shell.\n";
+	exit(0);
+}
+
+# See if we have a C compiler
+# The following code is adapted from Module::Install::Can
+SCOPE: {
+	# Fix Cygwin bug on maybe_command();
+	if ( $^O eq 'cygwin' ) {
+		require ExtUtils::MM_Cygwin;
+		require ExtUtils::MM_Win32;
+		if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
+			*ExtUtils::MM_Cygwin::maybe_command = sub {
+				my ($self, $file) = @_;
+				if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
+					ExtUtils::MM_Win32->maybe_command($file);
+				} else {
+					ExtUtils::MM_Unix->maybe_command($file);
+				}
+			}
+		}
+	}
+
+	sub can_run {
+		my $cmd = shift;
+		my $_cmd = $cmd;
+		return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
+
+		for my $dir ( (split /$Config::Config{path_sep}/, $ENV{PATH}), '.' ) {
+			next if $dir eq '';
+			my $abs = File::Spec->catfile($dir, $_[1]);
+			return $abs if (-x $abs or $abs = MM->maybe_command($abs));
+		}
+
+		return;
+	}
+
+	sub can_cc {
+		my @chunks = split(/ /, $Config::Config{cc}) or return;
+
+		# $Config{cc} may contain args; try to find out the program part
+		while ( @chunks ) {
+			return can_run("@chunks") || (pop(@chunks), next);
+		}
+
+		return;
+	}
+
+	unless ( can_cc() ) {
+		print "We can't locate a C compiler from your Config.pm.\n";
+		exit(0);
+	}
+}
+
+# Determine if we are going to use the provided SQLite code, or an already-
+# installed copy. To this end, look for two command-line parameters:
+#
+#    USE_LOCAL_SQLITE -- If non-false, force use of the installed version
+#    SQLITE_LOCATION  -- If passed, look for headers and libs under this root
+#
+# In absense of either of those, expect SQLite 3.X.X libs and headers in the
+# common places known to Perl or the C compiler.
+# 
+# Note to Downstream Packagers:
+# This block is if ( 0 ) to discourage casual users building against
+# the system SQLite. We expect that anyone sophisticated enough to use
+# a system sqlite is also sophisticated enough to have a patching system
+# that can change the if ( 0 ) to if ( 1 )
+my ($sqlite_local, $sqlite_base, $sqlite_lib, $sqlite_inc);
+if ( 0 ) {
+	require File::Spec;
+	if ( $sqlite_base = (grep(/SQLITE_LOCATION=.*/, @ARGV))[0] ) {
+		$sqlite_base =~ /=(.*)/;
+		$sqlite_base = $1;
+		$sqlite_lib = File::Spec->catdir( $sqlite_base, 'lib'     );
+		$sqlite_inc = File::Spec->catdir( $sqlite_base, 'include' );
+	}
+	if ( $sqlite_local = (grep(/USE_LOCAL_SQLITE=.*/, @ARGV))[0] ) {
+		$sqlite_local =~ /=(.*)/;
+		$sqlite_local = "$1" ? 1 : 0;
+		if ( $sqlite_local ) {
+			# Keep these from making into CFLAGS/LDFLAGS
+			undef $sqlite_lib;
+			undef $sqlite_inc;
+		}
+	}
+
+	# Now check for a compatible sqlite3
+	unless ( $sqlite_local ) {
+		my ($dir, $file, $fh, $version);
+		print "Checking installed SQLite version...\n" if $ENV{AUTOMATED_TESTING};
+		if ( $sqlite_inc ) {
+			open($fh, '< ' , File::Spec->catfile($sqlite_inc, 'sqlite3.h'))
+				or die "Error opening sqlite3.h in $sqlite_inc: $!";
+			while ( defined($_ = <$fh>) ) {
+				if (/\#define\s+SQLITE_VERSION_NUMBER\s+(\d+)/) {
+					$version = $1;
+					last;
+				}
+			}
+			close($fh);
+		} else {
+			# Go hunting for the file (Matt: Add more dirs here as you see fit)
+			foreach $dir ( [ qw(usr include) ], [ qw(usr local include) ] ) {
+				$file = File::Spec->catfile('', @$dir, 'sqlite3.h');
+				next unless (-f $file);
+				open($fh, "<", $file) or die "Error opening $file: $!";
+				while ( defined($_ = <$fh>) ) {
+					if (/\#define\s+SQLITE_VERSION_NUMBER\s+(\d+)/) {
+						$version = $1;
+						last;
+					}
+				}
+				close($fh);
+				last if $version;
+			}
+		}
+		unless ( $version && ($version >= 3006000) ) {
+			warn "SQLite version must be at least 3.6.0. No header file at that\n";
+			warn "version or higher was found. Using the local version instead.\n";
+			$sqlite_local = 1;
+			undef $sqlite_lib;
+			undef $sqlite_inc;
+		} else {
+			print "Looks good\n" if $ENV{AUTOMATED_TESTING};
+		}
+	}
+} else {
+	# Always the bundled one.
+	# XXX: ... and this message should be more informative.
+	$sqlite_local = 1;
+	print "We're using the bundled sqlite library.\n" if $ENV{AUTOMATED_TESTING};
+}
+
+@ARGV = grep( ! /SQLITE_LOCATION|USE_LOCAL_SQLITE/, @ARGV );
+
+
+
+
+
+#####################################################################
+# Prepare Compiler Options
+
+my @CC_LIBS = ();
+if ( $sqlite_lib ) {
+	push @CC_LIBS, "-L$sqlite_lib";
+}
+unless ( $sqlite_local ) {
+	push @CC_LIBS, '-lsqlite3';
+}
+
+my @CC_INC = (
+	'-I.',
+	'-I$(DBI_INSTARCH_DIR)',
+);
+if ( $sqlite_inc ) {
+	push @CC_INC, "-I$sqlite_inc";
+}
+
+my @CC_DEFINE = (
+	'-DSQLITE_ENABLE_FTS4',
+	'-DSQLITE_ENABLE_FTS3_PARENTHESIS', # for sqlite >= 3.6.10
+	'-DSQLITE_ENABLE_RTREE',            # for sqlite >= 3.6.10
+	'-DSQLITE_ENABLE_COLUMN_METADATA',
+	'-DSQLITE_ENABLE_STAT3',
+	'-DNDEBUG=1',
+);
+if ( $Config{d_usleep} || $Config{osname} =~ m/linux/ ) {
+	push @CC_DEFINE, '-DHAVE_USLEEP=1';
+}
+unless ( $Config{usethreads} ) {
+	push @CC_DEFINE, '-DTHREADSAFE=0';
+}
+if ($^O eq 'hpux' and $Config{osvers} <= 10.20) {
+	# HP-UX 10.20 does not have pread () at all
+	push @CC_DEFINE,
+		'-DSQLITE_OMIT_LOAD_EXTENSION',
+		'-UUSE_PREAD',
+		'-UUSE_PREAD64',
+		'-USQLITE_ENABLE_LOCKING_STYLE',
+		'-DMAP_FAILED="((void *)-1)"';
+}
+if ($^O eq 'darwin') {
+	my ($osmajor, $osminor) = split /\./, $Config{osvers};
+	if ($osmajor < 8 or ($osmajor == 8 && $osminor <= 11)) {
+		push @CC_DEFINE, '-DSQLITE_WITHOUT_ZONEMALLOC=1';
+	}
+	push @CC_DEFINE, '-DSQLITE_ENABLE_LOCKING_STYLE=0';
+}
+
+my @CC_OPTIONS = (
+	INC          => join( ' ', @CC_INC    ),
+	DEFINE       => join( ' ', @CC_DEFINE ),
+	( @CC_LIBS ? (
+		LIBS => join( ' ', @CC_LIBS )
+	) : () ),
+);
+
+# RT #70135: See if ld supports Bsymbolic; 
+unless ($^O eq 'MSWin32' && $Config{ld} =~ /link/) {
+	for my $path (File::Spec->path) {
+		if (MM->maybe_command("$path/ld")) {
+			my $devnull = File::Spec->devnull;
+			my $output = `$path/ld --help 2>$devnull`;
+			if ($output =~ /Bsymbolic/) {
+				push @CC_OPTIONS,
+					CCFLAGS   => $Config{ccflags}   . ' -Wl,-Bsymbolic',
+					LDFLAGS   => $Config{ldflags}   . ' -Wl,-Bsymbolic',
+					LDDLFLAGS => $Config{lddlflags} . ' -Wl,-Bsymbolic';
+			}
+			last;
+		}
+	}
+}
+
+
+
+
+
+#####################################################################
+# Hand off to ExtUtils::MakeMaker
+
+WriteMakefile(
+	NAME             => 'DBD::SQLite',
+	ABSTRACT         => 'Self Contained SQLite RDBMS in a DBI Driver',
+	VERSION_FROM     => 'lib/DBD/SQLite.pm',
+	AUTHOR           => 'Adam Kennedy <adamk@cpan.org>',
+	# Release manager (can this be an array?)
+	PREREQ_PM        => {
+		'Tie::Hash'     => 0,
+		'File::Spec'    => (WINLIKE ? '3.27' : '0.82'),
+		'DBI'           => $DBI_required,
+		'Test::More'    => '0.47', # Test::NoWarnings
+		'Test::Builder' => '0.86', # Test::NoWarnings
+		( WINLIKE ? (
+			'Win32' => '0.30',
+		) : () ),
+	},
+	# XXX: VOVKASM suggested to remove this OPTIMIZE line to use
+	# the same optimization as perl itself. However, it turned out
+	# this change broke a test under some environment, and thus, may
+	# break other applications eventually. I'm not sure if this is
+	# worth the trouble.
+	OPTIMIZE => '-O2',
+	OPTIONAL( '6.48',
+		MIN_PERL_VERSION => '5.006',
+	),
+	OPTIONAL( '6.31',
+		LICENSE => 'perl',
+	),
+	OPTIONAL( '6.46',
+		# Use META_ADD instead of META_MERGE so that we can remove
+		# any build-time dependencies that MakeMaker will put into
+		# the requires field.
+		META_ADD => {
+			dynamic_config => 1,
+			configure_requires => {
+				'ExtUtils::MakeMaker' => '6.48',
+				# This is not allowed to be computed
+				'File::Spec'          => '0.82',
+				'DBI'                 => $DBI_required,
+			},
+			build_requires => {
+				'File::Spec'          => (WINLIKE ? '3.27' : '0.82'),
+				'Test::More'          => '0.42',
+				# Bundled in /inc
+				# 'Test::NoWarnings'  => '0.081',
+			},
+			requires => {
+				'Tie::Hash' => 0,
+				'DBI'       => $DBI_required,
+				( WINLIKE ? (
+					'Win32' => '0.30',
+				) : () ),
+			},
+			resources => {
+				license     => 'http://dev.perl.org/licenses/',
+				bugtracker  => 'http://rt.cpan.org/Public/Dist/Display.html?Name=DBD-SQLite',
+				repository  => 'http://svn.ali.as/cpan/trunk/DBD-SQLite',
+				MailingList => 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbd-sqlite',
+			},
+			no_index => {
+				directory => [ qw{
+					t inc util
+				} ],
+			},
+		},
+	),
+	OBJECT           => ( $sqlite_local
+		? '$(O_FILES)'
+		: 'SQLite.o dbdimp.o'
+	),
+	clean            => {
+		FILES => 'SQLite.xsi config.h tv.log *.old',
+	},
+	PL_FILES         => {},
+	EXE_FILES        => [],
+
+	@CC_OPTIONS,
+);
+
+package MY;
+
+use Config;
+
+sub postamble {
+	require DBI;
+	require DBI::DBD;
+	my $postamble = eval {
+		DBI::DBD::dbd_postamble(@_)
+	};
+    if (-e 'sqlite3.c' && -e 'sqlite3.h' && -e 'sqlite3ext.h') {
+		my $S = $^O eq 'MSWin32' ? '\\' : '/';  # only Win32 (not cygwin)
+		my $share = "\$(INST_LIB)${S}auto${S}share${S}dist${S}\$(DISTNAME)";
+		my $perm_dir = $ExtUtils::MakeMaker::VERSION >= 6.52 ? '$(PERM_DIR)' : '755';
+		$postamble .= <<"SHARE";
+config ::
+\t\$(NOECHO) \$(MKPATH) "$share"
+\t\$(NOECHO) \$(CHMOD) $perm_dir "$share"
+\t\$(NOECHO) \$(CP) "sqlite3.c" "$share${S}sqlite3.c"
+\t\$(NOECHO) \$(CP) "sqlite3.h" "$share${S}sqlite3.h"
+\t\$(NOECHO) \$(CP) "sqlite3ext.h" "$share${S}sqlite3ext.h"
+SHARE
+	}
+	return $postamble;
+}
+
+sub libscan {
+	my ($self, $path) = @_;
+	return if $path =~ /\.pl$/;
+	($path =~ m/\~$/) ? undef : $path;
+}
+
+sub test_via_harness {
+	my ($self, $perl, $tests) = @_;
+	if ( $^O eq 'hpux' and $Config{osvers} <= 10.20 ) {
+		return qq{\tPERL_DL_NONLAZY=0 $perl "-MExtUtils::Command::MM" }
+		     . qq{"-e" "test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
+	} else {
+		$self->SUPER::test_via_harness($perl, $tests);
+	}
+}
+
+sub test_via_script {
+	my ($self, $perl, $script) = @_;
+	if ( $^O eq 'hpux' and $Config{osvers} <= 10.20 ) {
+		return qq{\tPERL_DL_NONLAZY=0 $perl "-I\$(INST_LIB)" "-I\$(INST_ARCHLIB)" $script\n};
+	} else {
+		$self->SUPER::test_via_script($perl, $script);
+	}
+}