Update of /cvsroot/popfile/engine/POPFile
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25303/POPFile
Modified Files:
Database.pm
Log Message:
Added a new-line.
Index: Database.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/Database.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Database.pm 30 Mar 2008 05:33:58 -0000 1.8
--- Database.pm 5 Apr 2008 10:32:53 -0000 1.9
***************
*** 84,88 ****
$self->config_( 'dbconnect', 'dbi:SQLite2:dbname=$dbname' );
! $self->config_( 'dbuser', '' ); $self->config_( 'dbauth', '' );
# SQLite 1.05+ have some problems we are resolving. This lets us
--- 84,89 ----
$self->config_( 'dbconnect', 'dbi:SQLite2:dbname=$dbname' );
! $self->config_( 'dbuser', '' );
! $self->config_( 'dbauth', '' );
# SQLite 1.05+ have some problems we are resolving. This lets us
***************
*** 174,178 ****
# backup the database by copying it
! if ( ( $self->config_( 'sqlite_tweaks' ) & 2 ) &&
$self->{db_is_sqlite__} ) {
if ( !copy( $self->{db_name__}, $self->{db_name__} . ".backup" ) ) {
--- 175,179 ----
# backup the database by copying it
! if ( ( $self->config_( 'sqlite_tweaks' ) & 2 ) &&
$self->{db_is_sqlite__} ) {
if ( !copy( $self->{db_name__}, $self->{db_name__} . ".backup" ) ) {
***************
*** 197,201 ****
my ( $self, $tweak, $state, $db ) = @_;
! if ( $self->{db_is_sqlite__} &&
( $self->config_( 'sqlite_tweaks' ) & $tweak ) ) {
--- 198,202 ----
my ( $self, $tweak, $state, $db ) = @_;
! if ( $self->{db_is_sqlite__} &&
( $self->config_( 'sqlite_tweaks' ) & $tweak ) ) {
***************
*** 344,348 ****
# to strip off any sqlquotechars from the table names we retrieve
! my $sqlquotechar = $db->get_info(29) || '';
my @tables = map { s/$sqlquotechar//g; $_ } ($db->tables());
--- 345,349 ----
# to strip off any sqlquotechars from the table names we retrieve
! my $sqlquotechar = $db->get_info(29) || '';
my @tables = map { s/$sqlquotechar//g; $_ } ($db->tables());
|
