--- trunk/lib/Sack/Merge.pm	2009/11/08 16:29:36	199
+++ trunk/lib/Sack/Merge.pm	2009/11/08 16:46:19	200
@@ -15,6 +15,10 @@
 our $digest_fh;
 our @digest_offset;
 
+sub clean {
+	undef $out;
+}
+
 sub add {
 	my ( $self, $new ) = @_;