/[wait]/trunk/lib/WAIT/Table.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/Table.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 31  use WAIT::Table::Handle (); Line 31  use WAIT::Table::Handle ();
31  require WAIT::Parse::Base;  require WAIT::Parse::Base;
32    
33  use strict;  use strict;
34  use Carp qw(cluck croak);  use Carp qw(cluck croak confess);
35  # use autouse Carp => qw( croak($) );  # use autouse Carp => qw( croak($) );
36  use BerkeleyDB;  use BerkeleyDB;
37  use Fcntl;  use Fcntl;
# Line 351  sub drop { Line 351  sub drop {
351  #    rmdir "$path/read" or warn "Could not rmdir '$path/read'";  #    rmdir "$path/read" or warn "Could not rmdir '$path/read'";
352    
353    } else {    } else {
354      croak ref($self)."::drop called directly";      confess ref($self)."::drop called directly";
355    }    }
356  }  }
357    
# Line 368  sub path { Line 368  sub path {
368    return $self->{path} if $self->{path};    return $self->{path} if $self->{path};
369    require Data::Dumper; print STDERR "Line " . __LINE__ . ", File: " . __FILE__ . "\n" . Data::Dumper->new([$self],[qw(self)])->Indent(1)->Useqq(1)->Dump; # XXX    require Data::Dumper; print STDERR "Line " . __LINE__ . ", File: " . __FILE__ . "\n" . Data::Dumper->new([$self],[qw(self)])->Indent(1)->Useqq(1)->Dump; # XXX
370    require Carp;    require Carp;
371    Carp::confess("NO path attr");    confess("NO path attr");
372  }  }
373    
374  sub open {  sub open {
# Line 428  sub open { Line 428  sub open {
428              $WAIT::Database::Cachesize?(Cachesize => $WAIT::Database::Cachesize):(),              $WAIT::Database::Cachesize?(Cachesize => $WAIT::Database::Cachesize):(),
429              $WAIT::Database::Pagesize?(Pagesize => $WAIT::Database::Pagesize):(),              $WAIT::Database::Pagesize?(Pagesize => $WAIT::Database::Pagesize):(),
430             )             )
431              or die "Cannot tie: $BerkeleyDB::Error;              or confess "Cannot tie: $BerkeleyDB::Error\nDEBUG: Filename[$self->{maindbfile}]subname[$subname]Mode[0664]Flags[$flags]";
  DEBUG: Filename[$self->{maindbfile}]subname[$subname]Mode[0664]Flags[$flags]";  
432    }    }
433    $self;    $self;
434  }  }
Legend:
Removed from v.114  
changed lines
  Added in v.115
  ViewVC Help
Powered by ViewVC 1.1.26