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

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

revision 34 by dpavlin, Wed Sep 23 21:47:32 2009 UTC revision 36 by dpavlin, Wed Sep 23 22:22:18 2009 UTC
# Line 71  sub to_int { Line 71  sub to_int {
71    
72    
73  sub from_int {  sub from_int {
74          my ( $self, $d ) = @_;  #       my ( $self, $d ) = @_;
75            my $d = pop @_;
76          my $v = $array[ $d ];          my $v = $array[ $d ];
77          defined $v ? $v : $d;          defined $v ? $v : $d;
78  }  }
79    
80    sub undigest_out {
81            my ( $self, $out ) = @_;
82    
83            foreach my $k1 ( grep { m/#/ } keys %$out ) {
84                    my @k2 = keys %{ $out->{$k1} };
85                    foreach my $k2 ( @k2 ) {
86                            my $v = delete $out->{$k1}->{$k2};
87                            warn "# k2 $k2 = $v";
88                            $out->{$k1}->{ from_int $k2 } = $v;
89                    }
90            }
91    
92            return $out;
93    }
94    
95  1;  1;
Legend:
Removed from v.34  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26