r60141 - in /trunk/libpdf-create-perl: ./ debian/ debian/patches/ lib/PDF/ lib/PDF/Create/ t/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Thu Jul 8 09:04:00 UTC 2010


Author: ansgar-guest
Date: Thu Jul  8 09:03:35 2010
New Revision: 60141

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60141
Log:
* New upstream release.
* Drop patch changes.patch: Changes.PL removed by upstream.
* Drop patch pod.patch: Applied upstream.
* Use debhelper's v8 mode; build-dep on debhelper (>= 7.9.1~) for this.
* Bump Standards-Version to 3.9.0 (no changes).

Added:
    trunk/libpdf-create-perl/Build.PL
      - copied unchanged from r60139, branches/upstream/libpdf-create-perl/current/Build.PL
Removed:
    trunk/libpdf-create-perl/Changes.PL
    trunk/libpdf-create-perl/t/50-versioning.t
Modified:
    trunk/libpdf-create-perl/Changes
    trunk/libpdf-create-perl/MANIFEST
    trunk/libpdf-create-perl/MANIFEST.SKIP
    trunk/libpdf-create-perl/META.yml
    trunk/libpdf-create-perl/Makefile.PL
    trunk/libpdf-create-perl/debian/changelog
    trunk/libpdf-create-perl/debian/compat
    trunk/libpdf-create-perl/debian/control
    trunk/libpdf-create-perl/debian/patches/series
    trunk/libpdf-create-perl/lib/PDF/Create.pm
    trunk/libpdf-create-perl/lib/PDF/Create/Page.pm
    trunk/libpdf-create-perl/t/01-basic.t
    trunk/libpdf-create-perl/t/02-string.t
    trunk/libpdf-create-perl/t/03-image.t
    trunk/libpdf-create-perl/t/04-drawing.t
    trunk/libpdf-create-perl/t/05-outline.t
    trunk/libpdf-create-perl/t/06-annotation.t
    trunk/libpdf-create-perl/t/07-fonts.t
    trunk/libpdf-create-perl/t/09-cgi.t
    trunk/libpdf-create-perl/t/99-wifi-parabola.t

Modified: trunk/libpdf-create-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/Changes?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/Changes (original)
+++ trunk/libpdf-create-perl/Changes Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/MANIFEST?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/MANIFEST (original)
+++ trunk/libpdf-create-perl/MANIFEST Thu Jul  8 09:03:35 2010
@@ -1,12 +1,12 @@
 CHANGES
 Changes
-Changes.PL
 lib/PDF/Create.pm
 lib/PDF/Create/Outline.pm
 lib/PDF/Create/Page.pm
 lib/PDF/Image/GIF.pm
 lib/PDF/Image/JPEG.pm
 Makefile.PL
+Build.PL
 MANIFEST
 MANIFEST.SKIP
 pdf-logo.svg
@@ -22,7 +22,6 @@
 t/07-fonts.t
 t/09-cgi-script.pl
 t/09-cgi.t
-t/50-versioning.t
 t/99-wifi-parabola.t
 t/pdf-logo.gif
 t/pdf-logo.jpg

Modified: trunk/libpdf-create-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/MANIFEST.SKIP?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/MANIFEST.SKIP (original)
+++ trunk/libpdf-create-perl/MANIFEST.SKIP Thu Jul  8 09:03:35 2010
@@ -9,5 +9,6 @@
 \.pdf$
 \.tmp$
 ^devel/
+^_build/
 .git/
 ^\..*

Modified: trunk/libpdf-create-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/META.yml?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/META.yml (original)
+++ trunk/libpdf-create-perl/META.yml Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/Makefile.PL?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/Makefile.PL (original)
+++ trunk/libpdf-create-perl/Makefile.PL Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/changelog?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/changelog (original)
+++ trunk/libpdf-create-perl/debian/changelog Thu Jul  8 09:03:35 2010
@@ -1,3 +1,13 @@
+libpdf-create-perl (1.06-1) unstable; urgency=low
+
+  * New upstream release.
+  * Drop patch changes.patch: Changes.PL removed by upstream.
+  * Drop patch pod.patch: Applied upstream.
+  * Use debhelper's v8 mode; build-dep on debhelper (>= 7.9.1~) for this.
+  * Bump Standards-Version to 3.9.0 (no changes).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Thu, 08 Jul 2010 17:53:22 +0900
+
 libpdf-create-perl (1.05-1) unstable; urgency=low
 
   [ Nathan Handler ]

Modified: trunk/libpdf-create-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/compat?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/compat (original)
+++ trunk/libpdf-create-perl/debian/compat Thu Jul  8 09:03:35 2010
@@ -1,1 +1,1 @@
-7
+8

Modified: trunk/libpdf-create-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/control?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/control (original)
+++ trunk/libpdf-create-perl/debian/control Thu Jul  8 09:03:35 2010
@@ -1,13 +1,13 @@
 Source: libpdf-create-perl
 Section: perl
 Priority: optional
-Build-Depends: debhelper (>= 7.0.50~)
+Build-Depends: debhelper (>= 7.9.1~)
 Build-Depends-Indep: perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jonathan Yu <jawnsy at cpan.org>, Damyan Ivanov <dmn at debian.org>,
  Vincent Danjean <vdanjean at debian.org>, gregor herrmann <gregoa at debian.org>,
  Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.4
+Standards-Version: 3.9.0
 Homepage: http://search.cpan.org/dist/PDF-Create/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpdf-create-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libpdf-create-perl/

Modified: trunk/libpdf-create-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/patches/series?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/patches/series (original)
+++ trunk/libpdf-create-perl/debian/patches/series Thu Jul  8 09:03:35 2010
@@ -1,2 +1,0 @@
-changes.patch
-pod.patch

Modified: trunk/libpdf-create-perl/lib/PDF/Create.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/lib/PDF/Create.pm?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/lib/PDF/Create.pm (original)
+++ trunk/libpdf-create-perl/lib/PDF/Create.pm Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/lib/PDF/Create/Page.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/lib/PDF/Create/Page.pm?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/lib/PDF/Create/Page.pm (original)
+++ trunk/libpdf-create-perl/lib/PDF/Create/Page.pm Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/01-basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/01-basic.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/01-basic.t (original)
+++ trunk/libpdf-create-perl/t/01-basic.t Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/02-string.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/02-string.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/02-string.t (original)
+++ trunk/libpdf-create-perl/t/02-string.t Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/03-image.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/03-image.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/03-image.t (original)
+++ trunk/libpdf-create-perl/t/03-image.t Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/04-drawing.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/04-drawing.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/04-drawing.t (original)
+++ trunk/libpdf-create-perl/t/04-drawing.t Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/05-outline.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/05-outline.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/05-outline.t (original)
+++ trunk/libpdf-create-perl/t/05-outline.t Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/06-annotation.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/06-annotation.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/06-annotation.t (original)
+++ trunk/libpdf-create-perl/t/06-annotation.t Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/07-fonts.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/07-fonts.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/07-fonts.t (original)
+++ trunk/libpdf-create-perl/t/07-fonts.t Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/09-cgi.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/09-cgi.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/09-cgi.t (original)
+++ trunk/libpdf-create-perl/t/09-cgi.t Thu Jul  8 09:03:35 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: trunk/libpdf-create-perl/t/99-wifi-parabola.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/99-wifi-parabola.t?rev=60141&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/99-wifi-parabola.t (original)
+++ trunk/libpdf-create-perl/t/99-wifi-parabola.t Thu Jul  8 09:03:35 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