Hi Chris
On Thu, 27 Feb 2003 09:33:07 -0500
"Chris Faust" <[EMAIL PROTECTED]> wrote:
> Hey Paolo,
>
> Did you try to add some die statements to see if it made any difference,
> so something like:
>
> use Image::Magick;
> my $image=Image::Magick->new(size=>'75x75');
> $image->Read('null:white');
> die &display_error("Read Error Error: Image: null:white $image
> \n") if
> ($image);
> my @x = $image->QueryFontMetrics
> font=>'@/usr/X11R6/lib/X11/fonts/ttf/Ritalin.ttf',text=>'X',
> pointsize=>12);
> die &display_error("ImFont Query Error: @x $image") if ($image);
>
> Works for me, then I just have a sub called "display_error" that prints
> the message and error out in a browser, but you could make that anything
> you want.
In this example, it would croak (let's not call it "die", because it
doesn't) on the $image->QueryFontMetrics() call, before it reaches
the die statement. Yes, I have made sure exactly where it dies. I don't
think one can do much better than this:
===================================================================
use Image::Magick;
use Error qw (:try);
my $image=Image::Magick->new(size=>'75x75');
$image->Read('null:white');
try {
my @x =
$image->QueryFontMetrics(font=>'@/usr/X11R6/lib/X11/fonts/ttf/Ritalin.ttf',text=>'X',
pointsize=>12);
die "Got past QueryFontMetrics()";
}
catch Error with {
warn "trapped an exception";
};
warn "Completed";
===================================================================
This gives the same output as the original post:
Exception 415: UnableToReadFont (@/usr/X11R6/lib/X11/fonts/ttf/Ritalin.ttf) at
./xxxxxxx line 12.
Thanks
Paolo
