/[wait]/trunk/lib/WAIT/Index.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WAIT/Index.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 114 by dpavlin, Tue Jul 13 21:27:27 2004 UTC revision 115 by dpavlin, Wed Jul 14 07:35:56 2004 UTC
# Line 17  use WAIT::IndexScan; Line 17  use WAIT::IndexScan;
17  use strict;  use strict;
18  use BerkeleyDB;  use BerkeleyDB;
19  use Fcntl;  use Fcntl;
20    use Carp;
21  use vars qw($VERSION);  use vars qw($VERSION);
22    
23  $VERSION = "2.000"; # Table.pm tests if we are loaded by checking $VERSION  $VERSION = "2.000"; # Table.pm tests if we are loaded by checking $VERSION
# Line 136  sub delete { Line 137  sub delete {
137    
138  sub sync {  sub sync {
139    my $self = shift;    my $self = shift;
140    $self->{dbh}->sync if $self->{dbh};    #warn "DEBUG: sync dbh[$self->{dbh}]";
141      if ($self->{dbh}) {
142            unless (defined($self->{dbh}->db_sync)) {
143                    carp "sync failed: $BerkeleyDB::Error";
144            }
145      } else {
146            confess "sync called without dbh";
147      }
148  }  }
149    
150  sub close {  sub close {
Legend:
Removed from v.114  
changed lines
  Added in v.115
  ViewVC Help
Powered by ViewVC 1.1.26