r60136 - in /branches/upstream/libpdf-create-perl/current: ./ lib/PDF/ lib/PDF/Create/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Thu Jul 8 08:41:04 UTC 2010
Author: ansgar-guest
Date: Thu Jul 8 08:40:44 2010
New Revision: 60136
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60136
Log:
[svn-upgrade] new version libpdf-create-perl (1.06)
Added:
branches/upstream/libpdf-create-perl/current/Build.PL
Removed:
branches/upstream/libpdf-create-perl/current/Changes.PL
branches/upstream/libpdf-create-perl/current/t/50-versioning.t
Modified:
branches/upstream/libpdf-create-perl/current/Changes
branches/upstream/libpdf-create-perl/current/MANIFEST
branches/upstream/libpdf-create-perl/current/MANIFEST.SKIP
branches/upstream/libpdf-create-perl/current/META.yml
branches/upstream/libpdf-create-perl/current/Makefile.PL
branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm
branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm
branches/upstream/libpdf-create-perl/current/t/01-basic.t
branches/upstream/libpdf-create-perl/current/t/02-string.t
branches/upstream/libpdf-create-perl/current/t/03-image.t
branches/upstream/libpdf-create-perl/current/t/04-drawing.t
branches/upstream/libpdf-create-perl/current/t/05-outline.t
branches/upstream/libpdf-create-perl/current/t/06-annotation.t
branches/upstream/libpdf-create-perl/current/t/07-fonts.t
branches/upstream/libpdf-create-perl/current/t/09-cgi.t
branches/upstream/libpdf-create-perl/current/t/99-wifi-parabola.t
Added: branches/upstream/libpdf-create-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/Build.PL?rev=60136&op=file
==============================================================================
--- branches/upstream/libpdf-create-perl/current/Build.PL (added)
+++ branches/upstream/libpdf-create-perl/current/Build.PL Thu Jul 8 08:40:44 2010
@@ -1,0 +1,14 @@
+#
+# Build.PL for PDF::Create
+#
+use Module::Build;
+
+my $build = Module::Build->new(
+ module_name => 'PDF::Create',
+ license => 'perl',
+ requires => {
+ 'perl' => '5.5.0',
+ },
+ );
+
+$build->create_build_script;
Modified: branches/upstream/libpdf-create-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/Changes?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/Changes (original)
+++ branches/upstream/libpdf-create-perl/current/Changes Thu Jul 8 08:40:44 2010
@@ -1,3 +1,75 @@
+commit 61da9f7... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 16:04:19 2010 +0200
+
+ Updated version number
+
+commit e127e19... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 16:04:05 2010 +0200
+
+ Updated Howto
+
+commit 8b24c54... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 16:03:49 2010 +0200
+
+ Fixed Makefile and MANIFEST for Build.PL
+
+commit 41a6ce3... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 16:02:46 2010 +0200
+
+ Added Build.PL
+
+commit d312b0f... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 15:26:13 2010 +0200
+
+ Save locale in Page-image (rt.perl.org bug #57340)
+
+commit 281c452... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 14:20:50 2010 +0200
+
+ Made this test windows-compatible (rt.perl.org bug #55505)
+
+commit 3a95266... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 12:06:58 2010 +0200
+
+ Add prerequisite for perl 5.005 (rt bug #55198)
+
+commit 720a622... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 12:06:00 2010 +0200
+
+ Fix typo
+
+commit 964e35a... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Tue Jul 6 11:04:51 2010 +0200
+
+ File permissions changed
+
+commit 6364179... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Thu Mar 4 13:47:00 2010 +0100
+
+ Fixed POD (rt bug #55184)
+
+commit df8dc6d... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Wed Mar 3 13:21:59 2010 +0100
+
+ Test-script cleanup, proper use of ok() with pdftotext
+
+commit 9aa1e84... PDF::Create 1.06
+Author: Markus Baertschi <markus at markus.org>
+Date: Wed Mar 3 12:54:46 2010 +0100
+
+ Run the cgi with the correct perl from $Config{perlpath}.
+
commit 24af861... PDF::Create 1.05
Author: Markus Baertschi <markus at markus.org>
Date: Fri Feb 26 00:36:23 2010 +0100
Modified: branches/upstream/libpdf-create-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/MANIFEST?rev=60136&op=diff
==============================================================================
Binary files - no diff available.
Modified: branches/upstream/libpdf-create-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/MANIFEST.SKIP?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libpdf-create-perl/current/MANIFEST.SKIP Thu Jul 8 08:40:44 2010
@@ -9,5 +9,6 @@
\.pdf$
\.tmp$
^devel/
+^_build/
.git/
^\..*
Modified: branches/upstream/libpdf-create-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/META.yml?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/META.yml (original)
+++ branches/upstream/libpdf-create-perl/current/META.yml Thu Jul 8 08:40:44 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: PDF-Create
-version: 1.05
+version: 1.06
abstract: create PDF files
license: perl
author: ~
Modified: branches/upstream/libpdf-create-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/Makefile.PL?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/Makefile.PL (original)
+++ branches/upstream/libpdf-create-perl/current/Makefile.PL Thu Jul 8 08:40:44 2010
@@ -1,16 +1,16 @@
#
# Makefile.PL for PDF::Create
#
-
+use 5.005;
use ExtUtils::MakeMaker;
WriteMakefile(
- NAME => "PDF::Create",
- VERSION_FROM => "lib/PDF/Create.pm",
-
- # VERSION => "$version",
+ NAME => "PDF::Create",
+ VERSION_FROM => "lib/PDF/Create.pm",
+# VERSION => "$version",
ABSTRACT_FROM => "lib/PDF/Create.pm",
LICENSE => "perl",
dist => { COMPRESS => "gzip", SUFFIX => "gz" },
- clean => { FILES => '*.bak *.old mibs/*.dump *.pdf' . 'lib/*/*~ lib/*/*/*~' },
+ clean => { FILES => '*.bak *.old mibs/*.dump *.pdf' . 'lib/*/*~ lib/*/*/*~' },
+ PL_FILES => {}, # prevent Build.PL from getting executed
);
Modified: branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm (original)
+++ branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm Thu Jul 8 08:40:44 2010
@@ -27,7 +27,7 @@
@EXPORT = qw();
@EXPORT_OK = qw($VERSION);
-our $VERSION = 1.05;
+our $VERSION = "1.06";
my $DEBUG = 0;
@@ -1386,8 +1386,6 @@
=head2 URI links
-=over 5
-
URI links have two components, the text or graphics object and the area
where the mouseclick should occur.
@@ -1395,6 +1393,8 @@
To define the click-sensitive area and the destination URI you use the
C<annotation()> method.
+
+=over 5
=item * annotation([parameters])
Modified: branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm (original)
+++ branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm Thu Jul 8 08:40:44 2010
@@ -21,6 +21,7 @@
use Carp;
use FileHandle;
use Data::Dumper;
+use POSIX qw(setlocale LC_NUMERIC);
@ISA = qw(Exporter);
@EXPORT = qw();
@@ -316,7 +317,7 @@
$self->{'pdf'}->page_stream($self);
$self->{'pdf'}->add("$ptext");
}
- PDF::Create::debug( 3, "text(): $ptext" );
+ PDF::Create::debug( 3, "text(): $ptext" );
1;
}
@@ -464,6 +465,10 @@
{
my $self = shift;
my %params = @_;
+
+ # Switch to the 'C' locale, we need printf floats with a '.', not a ','
+ my $savedLocale = setlocale(LC_NUMERIC);
+ setlocale(LC_NUMERIC,'C');
my $img = $params{'image'} || "1.2";
my $image = $img->{num};
@@ -513,6 +518,10 @@
}
$self->{'pdf'}->add("/Image$image Do\n");
$self->{'pdf'}->add("Q\n");
+
+ # Switch to the 'C' locale, we need printf floats with a '.', not a ','
+ setlocale(LC_NUMERIC,$savedLocale);
+
}
#######################################################################
Modified: branches/upstream/libpdf-create-perl/current/t/01-basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/01-basic.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/01-basic.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/01-basic.t Thu Jul 8 08:40:44 2010
@@ -59,19 +59,15 @@
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
+
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
#
Modified: branches/upstream/libpdf-create-perl/current/t/02-string.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/02-string.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/02-string.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/02-string.t Thu Jul 8 08:40:44 2010
@@ -74,19 +74,15 @@
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
+
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
#
Modified: branches/upstream/libpdf-create-perl/current/t/03-image.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/03-image.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/03-image.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/03-image.t Thu Jul 8 08:40:44 2010
@@ -71,19 +71,15 @@
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
+
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
#
Modified: branches/upstream/libpdf-create-perl/current/t/04-drawing.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/04-drawing.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/04-drawing.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/04-drawing.t Thu Jul 8 08:40:44 2010
@@ -94,19 +94,15 @@
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
+
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
#
Modified: branches/upstream/libpdf-create-perl/current/t/05-outline.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/05-outline.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/05-outline.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/05-outline.t Thu Jul 8 08:40:44 2010
@@ -82,19 +82,15 @@
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
+
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
#
Modified: branches/upstream/libpdf-create-perl/current/t/06-annotation.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/06-annotation.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/06-annotation.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/06-annotation.t Thu Jul 8 08:40:44 2010
@@ -88,19 +88,15 @@
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
+
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
#
Modified: branches/upstream/libpdf-create-perl/current/t/07-fonts.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/07-fonts.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/07-fonts.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/07-fonts.t Thu Jul 8 08:40:44 2010
@@ -78,19 +78,15 @@
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
+
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
#
Modified: branches/upstream/libpdf-create-perl/current/t/09-cgi.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/09-cgi.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/09-cgi.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/09-cgi.t Thu Jul 8 08:40:44 2010
@@ -12,25 +12,24 @@
use File::Basename;
use PDF::Create;
use Test::More tests => 2;
+use Config;
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
-my $cginame = dirname($0) . "/09-cgi-script.pl";
+my $cginame = File::Spec->catfile(dirname($0) . "/09-cgi-script.pl");
#
# run the cgi
#
-ok( !system("$cginame | sed -n '3,\$p' >$pdfname"), "CGI executes" );
+ok( !system(qq($cginame | $Config{"perlpath"} -n -e "print if \$. > 2" >$pdfname)), "CGI executes" );
+################################################################
+#
# Check the resulting pdf for errors with pdftotext
+#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
Modified: branches/upstream/libpdf-create-perl/current/t/99-wifi-parabola.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/t/99-wifi-parabola.t?rev=60136&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/t/99-wifi-parabola.t (original)
+++ branches/upstream/libpdf-create-perl/current/t/99-wifi-parabola.t Thu Jul 8 08:40:44 2010
@@ -128,16 +128,13 @@
# Wrap up the PDF and close the file
$pdf->close;
+
+################################################################
+#
# Check the resulting pdf for errors with pdftotext
+#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
-
- if ( my $out = `/usr/bin/pdftotext $pdfname -` ) {
- ok( 1, "pdf reads fine with pdftotext" );
- } else {
- ok( 0, "pdftotext reported errors" );
- exit 1;
- }
+ my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
+ ok( $out eq "", "pdftotext $out");
}
-
-
More information about the Pkg-perl-cvs-commits
mailing list