| Subject: | Wrong output for merge-pdf.pl executable |
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__