From Newsgroup: comp.lang.perl.misc

I have an old image gallery that uses this libary in apache2 and modperl

I made a small test program is it behaves like the server code

#!/usr/bin/perl
use warnings;

use Image::Imlib2;
my $image;
#my $pic = qq(/usr/local/apache2/htdocs/images/2025_purim_amsterdam/DSC03652.JPG);
my $pic = qq(/home/ruben/20130303_133505.jpg);
if (-e $pic) {
print STDERR "File Exists ==> $pic\n";
$image = Image::Imlib2->load($pic);
}
$image->save("/home/ruben/out.jpg");

[ruben@www3 Image]$ ~/bin/testimlib.pl
File Exists ==> /home/ruben/20130303_133505.jpg
Image::Imlib2 load error: No loader for file format at /home/ruben/bin/testimlib.pl line 10.

the load() method seems to no longer recognize the file types to decode
them. It is very fustrating. I looked at the code in

/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux-thread-multi/Image/Imlib2.pm

I can't even see the method load or where it might be inherited from

package Image::Imlib2;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);

require Exporter;
require DynaLoader;

@ISA = qw(Exporter DynaLoader);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
TEXT_TO_RIGHT
TEXT_TO_LEFT
TEXT_TO_UP
TEXT_TO_DOWN
TEXT_TO_ANGLE
);
$VERSION = '2.03';

bootstrap Image::Imlib2 $VERSION;

Image::Imlib2->set_cache_size(0);

sub new_transparent {
my ( $pkg, $x, $y ) = @_;
my $pixel = pack( 'CCCC', 0, 0, 0, 0 ); # ARGB
return Image::Imlib2->new_using_data( $x, $y, $pixel x ( $x * $y ) );
}

sub new_using_data {
my ( $pkg, $x, $y, $data ) = @_;
if ( defined $data && 4 * $x * $y == length $data ) {
return $pkg->_new_using_data( $x, $y, $data );
} else {
return undef;
}
}

sub autocrop {
my $image = shift;
my ( $x, $y, $w, $h ) = $image->autocrop_dimensions;
return $image->crop( $x, $y, $w, $h );
}

1;



It is not that large really.

I do find it in the source code for the module in the C library

[ruben@www3 Image]$ pwd
/home/ruben/.cpan/build/Image-Imlib2-2.03-6/lib/Image
[ruben@www3 Image]$
[ruben@www3 Image]$ grep load ./*
./Imlib2.c:XS_EUPXS(XS_Image__Imlib2_load); /* prototype to pass -Wmissing-prototypes */
./Imlib2.c:XS_EUPXS(XS_Image__Imlib2_load)
./Imlib2.c: image = imlib_load_image_with_error_return (filename, &err);
./Imlib2.c: Perl_croak(aTHX_ "Image::Imlib2 load error:
File does not exist");
./Imlib2.c: Perl_croak(aTHX_ "Image::Imlib2 load error:
File is directory");
./Imlib2.c: Perl_croak(aTHX_ "Image::Imlib2 load error: Permission denied");
./Imlib2.c: Perl_croak(aTHX_ "Image::Imlib2 load error:
No loader for file format");
./Imlib2.c:XS_EUPXS(XS_Image__Imlib2_load_font); /* prototype to pass -Wmissing-prototypes */
./Imlib2.c:XS_EUPXS(XS_Image__Imlib2_load_font)
./Imlib2.c: "Image::Imlib2::load_font",
./Imlib2.c: font = imlib_load_font(fontname);
./Imlib2.c: (void)newXSproto_portable("Image::Imlib2::load", XS_Image__Imlib2_load, file, "$$");
./Imlib2.c: (void)newXSproto_portable("Image::Imlib2::load_font", XS_Image__Imlib2_load_font, file,

I really need to fix this :(

I would appreciate any help I can get. I never put a C program in perl
code I don't even see how it inherited the load method or any
constructor for image types.


--- Synchronet 3.20c-Linux NewsLink 1.2

From Newsgroup: comp.lang.perl.misc

On 3/28/25 12:35 PM, Popping Mad wrote:

I have an old image gallery that uses this libary in apache2 and modperl

I made a small test program is it behaves like the server code

#!/usr/bin/perl
use warnings;

use Image::Imlib2;
my $image;
#my $pic = qq(/usr/local/apache2/htdocs/images/2025_purim_amsterdam/DSC03652.JPG);
my $pic = qq(/home/ruben/20130303_133505.jpg);
if (-e $pic) {
print STDERR "File Exists ==> $pic\n";
$image = Image::Imlib2->load($pic);
}
$image->save("/home/ruben/out.jpg");

[ruben@www3 Image]$ ~/bin/testimlib.pl
File Exists ==> /home/ruben/20130303_133505.jpg
Image::Imlib2 load error: No loader for file format at /home/ruben/bin/testimlib.pl line 10.

the load() method seems to no longer recognize the file types to decode
them. It is very fustrating. I looked at the code in

/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux-thread-multi/Image/Imlib2.pm

I can't even see the method load or where it might be inherited from

package Image::Imlib2;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);

require Exporter;
require DynaLoader;

@ISA = qw(Exporter DynaLoader);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
TEXT_TO_RIGHT
TEXT_TO_LEFT
TEXT_TO_UP
TEXT_TO_DOWN
TEXT_TO_ANGLE
);
$VERSION = '2.03';

bootstrap Image::Imlib2 $VERSION;

Image::Imlib2->set_cache_size(0);

sub new_transparent {
my ( $pkg, $x, $y ) = @_;
my $pixel = pack( 'CCCC', 0, 0, 0, 0 ); # ARGB
return Image::Imlib2->new_using_data( $x, $y, $pixel x ( $x * $y ) );
}

sub new_using_data {
my ( $pkg, $x, $y, $data ) = @_;
if ( defined $data && 4 * $x * $y == length $data ) {
return $pkg->_new_using_data( $x, $y, $data );
} else {
return undef;
}
}

sub autocrop {
my $image = shift;
my ( $x, $y, $w, $h ) = $image->autocrop_dimensions;
return $image->crop( $x, $y, $w, $h );
}

1;

It is not that large really.

I do find it in the source code for the module in the C library

[ruben@www3 Image]$ pwd
/home/ruben/.cpan/build/Image-Imlib2-2.03-6/lib/Image
[ruben@www3 Image]$
[ruben@www3 Image]$ grep load ./*
./Imlib2.c:XS_EUPXS(XS_Image__Imlib2_load); /* prototype to pass -Wmissing-prototypes */
./Imlib2.c:XS_EUPXS(XS_Image__Imlib2_load)
./Imlib2.c: image = imlib_load_image_with_error_return (filename, &err);
./Imlib2.c: Perl_croak(aTHX_ "Image::Imlib2 load error:
File does not exist");
./Imlib2.c: Perl_croak(aTHX_ "Image::Imlib2 load error:
File is directory");
./Imlib2.c: Perl_croak(aTHX_ "Image::Imlib2 load error: Permission denied");
./Imlib2.c: Perl_croak(aTHX_ "Image::Imlib2 load error:
No loader for file format");
./Imlib2.c:XS_EUPXS(XS_Image__Imlib2_load_font); /* prototype to pass -Wmissing-prototypes */
./Imlib2.c:XS_EUPXS(XS_Image__Imlib2_load_font)
./Imlib2.c: "Image::Imlib2::load_font",
./Imlib2.c: font = imlib_load_font(fontname);
./Imlib2.c: (void)newXSproto_portable("Image::Imlib2::load", XS_Image__Imlib2_load, file, "$$");
./Imlib2.c: (void)newXSproto_portable("Image::Imlib2::load_font", XS_Image__Imlib2_load_font, file,

I really need to fix this :(

I would appreciate any help I can get. I never put a C program in perl
code I don't even see how it inherited the load method or any
constructor for image types.

I fixed the Images::Imlib2 cpan package so it will at least compile by
hard coding the pkg-config file instead of the removed imlib2-config
But it is still not finding the image modules that are used by Image::Imlib2->load()
I'm not really sure where that is even being inherited from
because I never worked with a C code project encalsulated by perl

the debugger won't step into the load method eithe

--- Synchronet 3.20c-Linux NewsLink 1.2