#use Cwd;

$path = '';
if( $ARGV[0] eq 'pab' ) {
	$path = '../../../../../';
}
&file_copy( 'Sqlite3.pm', $path . 'blib/lib/PAB3/DB/Driver/Sqlite3.pm' );

1;

sub file_copy {
	my( $src, $dst ) = @_;
	my( $sfh, $dfh, $buf );
	return if ! -f $src;
	unlink( $dst );
	open( $sfh, '<', $src ) or warn "Could not open $src: $!";
	binmode( $sfh );
	open( $dfh, '>', $dst ) or warn "Could not open $dst: $!";
	binmode( $dfh );
	while( read( $sfh, $buf, 8192 ) ) {
		print $dfh $buf;
	}
	close( $dfh );
	close( $sfh );
	chmod( 0664, $dst );
}