Bug #41628 for PDF-Extract: PDF-Extract-3.03 - proposals to suppress warning messages

Hi Patrick, Thank you very much for your suggestions. I am uploading PDF::Extract 3.04 with a credit in the SUPPORT section of the POD for your suggestions. I also added some default behaviour for PDFPages. It will default to 1. See POD. Noel Sharrock PS. Happy new year. From: patrick.bourdon@bigfoot.com via RT [mailto:bug-PDF-Extract@rt.cpan.org] Sent: Friday, 12 December 2008 1:35 AM To: undisclosed-recipients: Subject: [rt.cpan.org #41628] PDF-Extract-3.03 - proposals to suppress warning messages Hello, My environment: - OS: Windows XP - Perl: ActivePerl 5.10.0 build 1004 - Module: PDF-Extract-3.03 To avoid warnings (-w), I suggest the following or equivalent changes: 535 (original) : $vars{"PDFFilename"}=$vars{"PDFSaveAs"} ? $vars{"PDFSaveAs"}.".pdf" : "$filename$fileNumber.pdf"; 535 (evolution): $vars{"PDFFilename"}=$vars{"PDFSaveAs"} ? $vars{"PDFSaveAs"}.".pdf" : $filename.($fileNumber||0).'.pdf'; 570 (original) : return &error("There are no pages in $filename.pdf that match '$pages' ",__FILE__,__LINE__) 570 (evolution): return &error("There are no pages in $filename.pdf that match '".((defined $pages) ? $pages : '?')."' ",__FILE__,__LINE__) 570 (original) : return &error("There are no pages in $filename.pdf that match '$pages' ",__FILE__,__LINE__) 570 (evolution): return &error("There are no pages in $filename.pdf that match '".((defined $pages) ? $pages : '?')."' ",__FILE__,__LINE__) 660 (original) : "$obj 0 R$gd"; 660 (evolution): (defined $gd) ? "$obj 0 R$gd" : "$obj 0 R"; Thank you for this module. Patrick Bourdon - Paris - France