/[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 115 by dpavlin, Wed Jul 14 07:35:56 2004 UTC revision 116 by dpavlin, Wed Jul 14 09:48:26 2004 UTC
# Line 29  sub new { Line 29  sub new {
29    
30    for my $x (qw(path attr env subname maindbfile tablename)) {    for my $x (qw(path attr env subname maindbfile tablename)) {
31      unless ($self->{$x} = $parm{$x}) {      unless ($self->{$x} = $parm{$x}) {
32        require Carp;        confess("No $x specified");
       Carp::croak("No $x specified");  
33      }      }
34    }    }
35    bless $self, ref($type) || $type;    bless $self, ref($type) || $type;
# Line 155  sub close { Line 154  sub close {
154    delete $self->{env};    delete $self->{env};
155    if ($self->{dbh}) {    if ($self->{dbh}) {
156      delete $self->{dbh};      delete $self->{dbh};
157        delete $self->{_attr};
158    
159        warn "DEBUG: close index (still possible bug)";
160        #use Devel::Peek;
161        #print Dump($self->{dbh});
162        
163      untie %{$self->{db}};      untie %{$self->{db}};
164      for my $att (qw(db path maindbfile)) {      for my $att (qw(db path maindbfile)) {
165        delete $self->{$att};        delete $self->{$att};
Legend:
Removed from v.115  
changed lines
  Added in v.116
  ViewVC Help
Powered by ViewVC 1.1.26