/ 
Imager-1.027
⭐ Starred 27 / slant_text.pl
Security Advisories (3)
CVE-2026-8669 (2026-05-15)

Imager versions through 1.030 for Perl allow a heap out of bounds (OOB) write on crafted multi-frame GIF files. Imager::File::GIF's i_readgif_multi_low allocates a single per-row buffer GifRow sized for the GIF's global screen width 'SWidth' and reuses it across every image in the file. The page-match branch validates Image.Width + Image.Left > SWidth before each DGifGetLine write, but the parallel skip-image branch at imgif.c:790-805 calls DGifGetLine(GifFile, GifRow, Width) with no such check.

CVE-2026-13705 (2026-07-06)

Imager versions before 1.032 for Perl have a heap out-of-bounds read in the bundled Imager::File::SGI reader via a 16-bit RLE literal run in read_rgb_16_rle. read_rgb_16_rle guards each literal run with if (count > data_left), but count is a pixel count while every 16-bit sample consumes two bytes. The copy loop reads inp[0] * 256 + inp[1] and advances two bytes per pixel, so a run with data_left / 2 < count <= data_left passes the guard yet consumes 2 * count bytes and reads past the end of the buffer. The 8-bit path is unaffected because there one pixel is one byte. Reading a crafted SGI image through Imager->read triggers the over-read before the parser rejects the malformed image, which can crash the process.

CVE-2026-14454 (2026-07-08)

Imager versions before 1.033 for Perl treat unsigned EXIF IFD entry counts as signed. Imager mishandled large EXIF IFD entry count values, treating them as negative numbers. This could lead to an attempt to allocate a block nearly the size of the address space, which fails and kills the process. An attacker could craft an image with EXIF data that terminates a worker process.

NAME

slant_text.pl - sample for drawing transformed text

SYNOPSIS

perl slant_text.pl [options] fontfile output text

Run without arguments for option details.

DESCRIPTION

This is a sample for drawing transformed text.

It's complicated by the need to create an image to put the text into, if you have text, a font, and a good idea where it belongs, it's simple to create the transformation matrix:

use Imager::Matrix2d;
# or call another method for shearing, etc
my $matrix = Imager::Matrix2d->rotate(radians=>$some_angle);

Feed the transformation matrix to the font:

$font->transform(matrix=>$font);

then draw the text as normal:

$image->string(string=>$some_text,
               x => $where_x,
               y => $where_y,
               font => $font,
               size => $size);

But if you do need the bounds, the code above does show you how to do it.

FUNCTIONS

transformed_bounds

Returns a list of bounds:

(minx, miny, maxx, maxy)

These are offsets from the text's starting point in font co-ordinates - so positive y is up.

Note: this returns the bounds of the transformed bounding box, in most cases the actual text will not be touching these boundaries.

AUTHOR

Tony Cook <tonyc@cpan.org>

REVISION

$Revision$

SEE ALSO

Imager(1), Imager::Cookbook, Imager::Matrix2d