#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 );

}