gobook.perl - diff

Return to gobook.perl CVS log

Up to [Omarama Landouts]

version 1.4, 2013/11/06 03:20:01	version 1.5, 2013/11/23 02:57:44
Line 512 foreach my $stripnum ( sort keys %{$stri	Line 512 foreach my $stripnum ( sort keys %{$stri
$Text::Wrap::columns = 30;	$Text::Wrap::columns = 30;
if ( $strips->{strip}->{$stripnum}->{comment} =~ /Danger/ ){	if ( $strips->{strip}->{$stripnum}->{comment} =~ /Danger/ ){
$p->setcolour("red");	$p->setcolour("red");
	# Draw over image ...
	$p->setlinewidth(4);
	$p->arc( 70, 60, 20, 0, 360);
	$p->line(50,40, 90,80);
}	}
my @para = split (/\n/,wrap('', '', $strips->{strip}->{$stripnum}->{comment}));	my @para = split (/\n/,wrap('', '', $strips->{strip}->{$stripnum}->{comment}));
while (my $ln = shift @para){	while (my $ln = shift @para){