/[Sack]/trunk/bin/storableedit.pl
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/bin/storableedit.pl

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

revision 44 by dpavlin, Thu Sep 24 12:48:08 2009 UTC revision 45 by dpavlin, Thu Sep 24 13:37:53 2009 UTC
# Line 50  sub undigest { Line 50  sub undigest {
50          my $k = $o->{path}->[0] || return $v;          my $k = $o->{path}->[0] || return $v;
51          return $v unless $k =~ m{#};          return $v unless $k =~ m{#};
52  #       warn "## $k = $v\n";  #       warn "## $k = $v\n";
53          Sack::Digest->undigest_node_k_v(0, $k, $v);          $o->{_digest_}->undigest_node_k_v(0, $k, $v);
54  }  }
55    
56  sub new {  sub new {
# Line 58  sub new { Line 58  sub new {
58          my $class=(ref($o) || $o);          my $class=(ref($o) || $o);
59          my $newo=bless {}, $class;          my $newo=bless {}, $class;
60          $newo->init(@_);          $newo->init(@_);
61            $newo->{_digest_} = Sack::Digest->new( port => 0 );
62          return $newo;          return $newo;
63  }  }
64    
Legend:
Removed from v.44  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26