| … | |
… | |
| 793 | # open my $fh, ">x" or die; print $fh $src;#d# |
793 | # open my $fh, ">x" or die; print $fh $src;#d# |
| 794 | # exit 1; |
794 | # exit 1; |
| 795 | # } |
795 | # } |
| 796 | } |
796 | } |
| 797 | |
797 | |
| 798 | $src = $compress->($src); |
798 | $src = $compress->($src); # maybe this should be cached, as well |
| 799 | |
799 | |
| 800 | print "adding $pm (original size $size, stored size ", length $src, ")\n" |
800 | print "adding $pm (original size $size, stored size ", length $src, ")\n" |
| 801 | if $VERBOSE >= 2; |
801 | if $VERBOSE >= 2; |
| 802 | |
802 | |
| 803 | push @index, ((length $pm) << 25) | length $data; |
803 | push @index, ((length $pm) << 25) | length $data; |
