Skip Menu |
 

This queue is for tickets about the PDF-API2 CPAN distribution.

Report information
The Basics
Id: 62922
Status: resolved
Priority: 0/
Queue: PDF-API2

People
Owner: Nobody in particular
Requestors: grousse [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Unimportant
Broken in: 0.73
Fixed in: (no value)

Attachments
perl-PDF-API2-0.73-fix-program-output.patch



Subject: Wrong output for merge-pdf.pl executable
Download (untitled) / with headers
text/plain 185b
merge-pdf.pl prevent string interpolation in its output, resulting in erroneous output: loading file $in .1.2. done. loading file $in .1.2.3.4.5.6.7.8.9. done. Attached patch fix this.
Subject: perl-PDF-API2-0.73-fix-program-output.patch
diff -Naur -x '*~' PDF-API2-0.73/contrib/pdf-merge.pl PDF-API2-0.73-fix-program-output/contrib/pdf-merge.pl --- PDF-API2-0.73/contrib/pdf-merge.pl 2005-11-16 02:16:00.000000000 +0000 +++ PDF-API2-0.73-fix-program-output/contrib/pdf-merge.pl 2010-11-11 12:09:56.000000000 +0000 @@ -52,7 +52,7 @@ my $pdf=PDF::API2->new; foreach my $in (@ARGV) { - print STDERR 'loading file $in .'; + print STDERR "loading file $in ."; my $inpdf=PDF::API2->open($in); my $pages=scalar @{$inpdf->{pagestack}}; foreach my $page (1..$pages) { @@ -65,4 +65,4 @@ $pdf->saveas($outfile); -__END__ \ Pas de fin de ligne à la fin du fichier. +__END__
Fixed in source, and will be part of the next release. Thanks!


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.