Changeset 24673
- Timestamp:
- 2011-09-27T12:52:59+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/dbutil/sqlite.pm
r24626 r24673 37 37 my $db_fast = 0; 38 38 39 # Set to 1 to enable Write Ahead Logging - which is supposed to allow multiple 40 # readers/writers on a SQLite database (overridden by db_fast). 41 my $db_wal = 0; 42 39 43 40 44 # ----------------------------------------------------------------------------- … … 62 66 # the nul device instead. 63 67 my $nul_device=""; 64 if( defined $db_fast && $db_fast == 1) {68 if($db_fast || $db_wal) { 65 69 if($ENV{'GSDLOS'} =~ m/windows/) { 66 70 $nul_device=">NUL"; … … 85 89 print $infodb_handle "PRAGMA journal_mode=MEMORY;\n"; 86 90 } 87 91 # Allow parallel readers/writers by using a Write Ahead Logger 92 elsif ($db_wal) 93 { 94 print $infodb_handle "PRAGMA journal_mode=WAL;\n"; 95 } 96 88 97 # This is very important for efficiency, otherwise each command will be actioned one at a time 89 98 print $infodb_handle "BEGIN TRANSACTION;\n";
Note:
See TracChangeset
for help on using the changeset viewer.