[Perl-unix-users] Error in dynaloader

[VINCENT . MAUGAIN]

Show the error with my program :
Can't load '/opt/perl/lib/site_perl/sun4-solaris/pdflib_pl.so' for module pdflib_pl: 
ld.so.1: /usr/bin/perl: fatal: libtiff.so: open failed: No such file or directory at 
/opt/perl/lib/sun4-solaris/5.00404/DynaLoader.pm line 166. at 
/opt/perl/lib/site_perl/sun4-solaris/pdflib_pl.pm line 7 BEGIN failed--compilation 
aborted at /DOC/genie/wwwgenie/outils/jt.pl line 26.
The program find dynaloader file but it can't load pdflib_pl.so. Why ?
I don't understand the error message.
"ld.so.1" is located in /usr/lib/
"libtiff.so" is located in /usr/local/lib/

There is an error line 166. Show this line :
my ¤libref = dl_load_file(¤file, ¤module->dl_load_flags) or croak("Can't load 
'¤file' for module ¤module: ".dl_error()."\n");

and just before, see :
# Many dynamic extension loading problems will appear to come from
# this section of code: XYZ failed at line 123 of DynaLoader.pm.
# Often these errors are actually occurring in the initialisation
# C code of the extension XS file. Perl reports the error as being
# in this perl code simply because this was the last perl code
# it executed.

If you need more precisions, say to me.

Thanks for your help.

Vincent.
___
Perl-Unix-Users mailing list. To unsubscribe go to 
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users

[Perl-unix-users] Problem with generation of pdf file

[VINCENT . MAUGAIN]

I want to convert image TIFF file to PDF file. It's multi-page image files.
I write this program :

my $p = PDF_new();

die "Couldn't open PDF file" if (PDF_open_file($p, "pdfprint.pdf") == -1);

PDF_set_info($p, "Creator", "pdfprint.pl");
PDF_set_info($p, "Author", "AFNOR");
PDF_set_info($p, "Title", "Norme AFNOR");

$num = 'FA001739';
my $imagefile = "/DOC/genie/stockage/$num/DOCUMENT/TIFF_600/$num\.TIF";

IMAGE: for ($frame=1;$frame<101;$frame++) {
  $image =PDF_open_image_file($p,"tiff",$imagefile,"page",$frame);

  last IMAGE if ($image ==-1);

  # Définition des dimensions de l'image
  $width = PDF_get_value($p, "imagewidth", $image);
  $height = PDF_get_value($p, "imageheight", $image);

  PDF_begin_page($p, $width, $height);
  PDF_place_image($p, $image, 0, 0, 1);
  PDF_close_image($p, $image);
  PDF_end_page($p);
}

The program creates the PDF file with all pages but it doesn't success to open these 
pages : error of reading.

Vincent Maugain.
___
Perl-Unix-Users mailing list. To unsubscribe go to 
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users