#line 33
sub partial_string($$) {
	my ($string,$maxlen) = @_;
	my $len=$string?length $string:0;
	my $remainder=sprintf "..(%d more chars)...", $len - $maxlen;
	sprintf "%.*s%s",$maxlen,$string//"",$len>$maxlen ?  $remainder:"";
}
#line 40
...
#line 1159
		sub _get_Nth_framep {
			$_=$_[0]->{Parseable_PerTag_Space};
			$_->[$_[1]];
		}
#line 1163
....
#line 1708 (tabs should display @ 2 spaces for best readability)
sub dumpfromstart {                 #line 1709
	if ($fault) {
		$SIG{__WARN__} = $SIG{__DIE__} = undef;
		confess "Double Fault\n";
	}
	lock $fault;
	++$fault;
	print "Start Dump:\n";
#line 1717
	#truncate excessive output
	foreach my $pg ($page, $startpage) {
		last unless $pg;
		$pg->{content} = partial_string($pg->{content},32) 
			if $pg && $startpage->{content};
		$pg->{tagprint} = [];

		for (my $i=0; $i <= $#{$pg->{Parseable_PerTag_Space}}; ++$i) {
			alias my ($open_tag, $tag_output) = $pg->_get_Nth_framep($i);     #line 1726
				$tag_output = partial_string($tag_output,32) if $tag_output;  #line 1727
		}
	}

	my $d;
	if ($page and $startpage != $page) {
		$d = Data::Dumper->new([ $startpage, $page ], [qw(startpage page)]);
	} else {
		$d = Data::Dumper->new([ $startpage, $PageQueue::PageQueue ],
			[ 'startpage', ]);
	}
	print $d->Dump;
	--$fault;
}