summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d94b6dd)
bless { wr => $io, latest_cmt => $_[1] }, __PACKAGE__
}
bless { wr => $io, latest_cmt => $_[1] }, __PACKAGE__
}
sub push_rec {
my ($self, $file_char, $at, $ct, $blob_oid) = @_;
my $rec = pack(FMT, $file_char, $at, $ct, $blob_oid);
sub push_rec {
my ($self, $file_char, $at, $ct, $blob_oid) = @_;
my $rec = pack(FMT, $file_char, $at, $ct, $blob_oid);