projects
/
webpac2
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
62fa752
)
fix dump (ugly, needs re-visiting)
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 10 Oct 2006 10:57:59 +0000
(10:57 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 10 Oct 2006 10:57:59 +0000
(10:57 +0000)
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@757
07558da8
-63fa-0310-ba24-
9fe276d99e06
lib/WebPAC/Input.pm
patch
|
blob
|
history
diff --git
a/lib/WebPAC/Input.pm
b/lib/WebPAC/Input.pm
index
7ac1a7c
..
21bea8f
100644
(file)
--- a/
lib/WebPAC/Input.pm
+++ b/
lib/WebPAC/Input.pm
@@
-377,6
+377,9
@@
sub open {
$self->{max_pos} = $to_rec;
$log->debug("max_pos: $to_rec");
+ # save for dump
+ $self->{ll_db} = $ll_db;
+
return $size;
}
@@
-547,7
+550,7
@@
Display humanly readable dump of record
sub dump {
my $self = shift;
- return $self->{
dump_rec}->($self, $self->{pos}
);
+ return $self->{
ll_db}->dump_rec( $self->{pos}
);
}