Ticket #25: Dumpfile.pm.diff

Dumpfile.pm

old	new
745	745	print $fh "Text-content-length: $textlen\n";
746	746	}
747	747
748		print $fh "Content-length: " . ($proplen + $textlen)
749		. "\n\n$propout$text\n";
	748	# If you have large files in your source safe repository, writing the
	749	# files out in one go will fail.
	750	# Split the text into smaller blocks that can be saved in one go.
	751	print $fh "Content-length: " . ($proplen + $textlen);
	752	print $fh "\n\n$propout";
750	753
	754	my $BLOCKSIZE = 100000;
	755
	756	for (my $i=0; $i< $textlen; $i += $BLOCKSIZE)
	757	{
	758	my $subText = substr $text, $i, $BLOCKSIZE;
	759	print $fh $subText;
	760	}
	761	print $fh "\n";
	762
751	763	} # End output_content
752	764
753	765	###############################################################################