| 243 |
my $to_rec = $size; |
my $to_rec = $size; |
| 244 |
|
|
| 245 |
if (my $s = $self->{offset}) { |
if (my $s = $self->{offset}) { |
| 246 |
$log->info("skipping to MFN $s"); |
$log->debug("skipping to MFN $s"); |
| 247 |
$from_rec = $s; |
$from_rec = $s; |
| 248 |
} else { |
} else { |
| 249 |
$self->{offset} = $from_rec; |
$self->{offset} = $from_rec; |
| 451 |
my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}"; |
my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}"; |
| 452 |
$max_fld = $v if ($v > $max_fld); |
$max_fld = $v if ($v > $max_fld); |
| 453 |
|
|
| 454 |
my $o = sprintf("%4d %d ~", $f, $v); |
my $o = sprintf("%4s %d ~", $f, $v); |
| 455 |
|
|
| 456 |
if (defined($s->{sf}->{$f})) { |
if (defined($s->{sf}->{$f})) { |
| 457 |
map { |
map { |
| 464 |
} |
} |
| 465 |
|
|
| 466 |
$o; |
$o; |
| 467 |
} sort { $a <=> $b } keys %{ $s->{fld} } |
} sort { $a cmp $b } keys %{ $s->{fld} } |
| 468 |
); |
); |
| 469 |
|
|
| 470 |
$log->debug( sub { Dumper($s) } ); |
$log->debug( sub { Dumper($s) } ); |
Parent Directory
| 
Revision Log
| 
Patch