/[Sack]/trunk/lib/Sack/Digest.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/Sack/Digest.pm

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

revision 36 by dpavlin, Wed Sep 23 22:22:18 2009 UTC revision 37 by dpavlin, Wed Sep 23 23:10:50 2009 UTC
# Line 41  sub open { Line 41  sub open {
41                    
42          warn "[$port] BDB open $path\n";          warn "[$port] BDB open $path\n";
43    
44            return $path;
45  }  }
46    
47  sub close {  sub close {
# Line 74  sub from_int { Line 75  sub from_int {
75  #       my ( $self, $d ) = @_;  #       my ( $self, $d ) = @_;
76          my $d = pop @_;          my $d = pop @_;
77          my $v = $array[ $d ];          my $v = $array[ $d ];
78    #       warn "## from_int $d = $v\n";
79          defined $v ? $v : $d;          defined $v ? $v : $d;
80  }  }
81    
# Line 84  sub undigest_out { Line 86  sub undigest_out {
86                  my @k2 = keys %{ $out->{$k1} };                  my @k2 = keys %{ $out->{$k1} };
87                  foreach my $k2 ( @k2 ) {                  foreach my $k2 ( @k2 ) {
88                          my $v = delete $out->{$k1}->{$k2};                          my $v = delete $out->{$k1}->{$k2};
89                          warn "# k2 $k2 = $v";  #                       warn "## k2 $k2 = $v";
90                          $out->{$k1}->{ from_int $k2 } = $v;                          $out->{$k1}->{ from_int $k2 } = $v;
91                  }                  }
92          }          }
# Line 92  sub undigest_out { Line 94  sub undigest_out {
94          return $out;          return $out;
95  }  }
96    
97    sub sync {
98            warn "[$port] sync";
99            $btree->db_sync;
100            $array->db_sync;
101    }
102    
103  1;  1;
Legend:
Removed from v.36  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.26