in reply to Imager::GIF seems broken

I can't speak for Imager::GIF, but simply replacing it with Imager in your example works without issue.

#!/usr/bin/perl

use strict;
use warnings;
use Imager;

my $gif = shift || die 'need an image';
my $img = Imager->new;

$img->read(file => $gif)
or die $img->errstr;

$img = $img->scale(scalefactor => 0.5);

$img->write(file => join '.', $gif, 'half', 'gif')
or die $img->errstr;

[download]

Replies are listed 'Best First'.
Re^2: Imager::GIF seems broken
by Anonymous Monk on Jan 05, 2020 at 15:50 UTC
    Thanks marto but your example demonstrates why we need Imager::GIF. Using Imager to transform animated GIFs will only save the first frame of the animation. Imager::GIF does the dirty work of taking apart the animation, transforming each image, and putting it back together again.
[reply]

      I'm glad you found a solution, your previous post would make a good patch.

[reply]
        > a good patch

        I'm not sure if the documentation is broken, or the module itself. The docs are consistent with how Imager usually works (using "new" to make object and possibly load data, or using "read" on object to load data, then giving "file => $file" hash to write method). Patching the docs would get the current module working for people, whereas patching the module would make it conform to the docs and work like usual Imager code.

        🤔

[reply]

In Section Seekers of Perl Wisdom