r39977 - in /trunk/libpdf-create-perl: Changes Changes.PL META.yml debian/changelog lib/PDF/Create.pm lib/PDF/Image/GIF.pm t/1-simple.t t/2-jpeg.t t/3-gif.t t/4-graphics.t t/5-complex.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Jul 15 20:07:52 UTC 2009
Author: jawnsy-guest
Date: Wed Jul 15 20:07:45 2009
New Revision: 39977
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39977
Log:
No need to upload
* New upstream release
+ There was no changelog; diff shows textual and test changes only
Modified:
trunk/libpdf-create-perl/Changes
trunk/libpdf-create-perl/Changes.PL
trunk/libpdf-create-perl/META.yml
trunk/libpdf-create-perl/debian/changelog
trunk/libpdf-create-perl/lib/PDF/Create.pm
trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm
trunk/libpdf-create-perl/t/1-simple.t
trunk/libpdf-create-perl/t/2-jpeg.t
trunk/libpdf-create-perl/t/3-gif.t
trunk/libpdf-create-perl/t/4-graphics.t
trunk/libpdf-create-perl/t/5-complex.t
Modified: trunk/libpdf-create-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/Changes?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/Changes (original)
+++ trunk/libpdf-create-perl/Changes Wed Jul 15 20:07:45 2009
@@ -1,148 +1,0 @@
-commit d2f238a... PDF::Create v1.03^0
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue Mar 24 00:52:31 2009 +0100
-
- Fix: Missing % in line 93, reported by Dan Carson.
-
-commit d6b21d3... PDF::Create v1.03
-Author: Markus Baertschi <markus at markus.org>
-Date: Fri Jul 11 00:01:10 2008 +0200
-
- Updated Changelog generation to add version information.
- The version information is coming from tags. New version = tag.
-
-commit 87b3f1b... PDF::Create v1.02
-Author: Markus Baertschi <markus at markus.org>
-Date: Thu Jul 10 22:36:02 2008 +0200
-
- Fixed gif image processing on big-endian machines.
- Thanks to Neil Watkiss <neil.watkiss at gmail.com> for the patch.
- Published as Version 1.02.
-
-commit 886ea2e... PDF::Create v1.01
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue Jun 3 12:43:41 2008 +0200
-
- Renamed Image modules to fix bug 28636 (rt.cpan.org).
-
-commit 7acfe62... PDF::Create v1.01
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue Jun 3 10:53:56 2008 +0200
-
- Updates Michael's email, added reference to git repository at github
-
-commit e52ef1f... PDF::Create v1.01
-Merge: 88fad3e... 875425d...
-Author: Markus Baertschi <markus at markus.org>
-Date: Sat May 31 19:26:23 2008 +0200
-
- Merge branch 'master' of git://github.com/markusb/pdf-create
-
-commit 88fad3e... PDF::Create v1.01
-Author: Markus Baertschi <markus at markus.org>
-Date: Sat May 31 19:20:33 2008 +0200
-
- Updated version to 1.0 to fit better with PDF::Create and show maturity
-
-commit ccf26de... PDF::Create v1.01
-Author: Markus Baertschi <markus at markus.org>
-Date: Sat May 31 19:18:35 2008 +0200
-
- Updated build system to generate Changes file directly from git log
-
-commit 28b0922... PDF::Create v1.0
-Author: Markus Baertschi <markus at markus.org>
-Date: Sat May 31 12:49:32 2008 +0200
-
- Version 1.0
-
-commit 875425d... PDF::Create v1.01
-Author: Markus Baertschi <markus at markus.org>
-Date: Sat May 31 12:49:32 2008 +0200
-
- Version 1.0
-
-commit 9adbcbf... PDF::Create v1.0
-Author: Markus Baertschi <markus at markus.org>
-Date: Sat May 31 12:05:17 2008 +0200
-
- More POD fixing
-
-commit 6f7ba3f... PDF::Create v0.10
-Author: Markus Baertschi <markus at markus.org>
-Date: Sat May 31 11:23:50 2008 +0200
-
- Version 0.10
-
-commit f9e1656... PDF::Create v0.10
-Author: Markus Baertschi <markus at markus.org>
-Date: Fri May 30 09:00:53 2008 +0200
-
- Clarified documentation
-
-commit da76efc... PDF::Create v0.10
-Author: Markus Baertschi <markus at markus.org>
-Date: Thu May 29 22:04:07 2008 +0200
-
- Fixed 'Rotate', added debugging
-
-commit e240621... PDF::Create v0.10
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue May 20 19:44:21 2008 +0200
-
- Fixed documentation formatting
-
-commit fe3823d... PDF::Create v0.10
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue May 20 18:00:13 2008 +0200
-
- Added small cgi sample
-
-commit 87fc07f... PDF::Create v0.9
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue May 20 17:21:57 2008 +0200
-
- Changed version to 0.9
-
-commit 90f37ce... PDF::Create v0.9
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue May 20 17:18:40 2008 +0200
-
- Cleaned up samples and comments
-
-commit 2b50205... PDF::Create v0.9
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue May 20 17:07:10 2008 +0200
-
- Added better testing
-
-commit 48262cc... PDF::Create v0.9
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue May 20 17:03:48 2008 +0200
-
- Improved documentation
-
-commit 3ed3ded... PDF::Create v0.9
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue May 20 17:02:30 2008 +0200
-
- Add error-checking
-
-commit a726f88... PDF::Create v0.9
-Author: Markus Baertschi <markus at markus.org>
-Date: Sun Sep 30 19:00:42 2007 +0200
-
- Re-added pdf-logo files
-
-commit 1490f88... PDF::Create v0.9
-Author: Markus Baertschi <markus at markus.org>
-Date: Sun Sep 30 18:59:04 2007 +0200
-
- New function: printnl (print multiple lines)
- Modified: get_page_size (arguments case-independent)
-
-commit e4d7378... PDF::Create v0.9
-Author: Markus Baertschi <markus at markus.org>
-Date: Mon Sep 3 18:05:29 2007 +0200
-
- Initial import.
Modified: trunk/libpdf-create-perl/Changes.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/Changes.PL?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/Changes.PL (original)
+++ trunk/libpdf-create-perl/Changes.PL Wed Jul 15 20:07:45 2009
@@ -3,12 +3,39 @@
# Changes.PL
#
# Create the 'Changes' file automatically from git commit messages
-# and versioning tags in the repository
+# and versioning tags in the repository.
+#
+# This script is designed to be run only on the PDF::Create maintainers
+# workstation and is not needed to install PDF::Create.
+#
use strict;
-open(OUT, ">Changes") or die "Can not open 'Changes' for writing\n";
-open(IN,"git log --abbrev-commit --pretty |") or die "Can not run git\n";
+#
+# Bail out with non-alarming error message if git or the correct repository
+# is missing.
+#
+
+my $user;
+my $git=`which git`;
+chomp $git;
+if (! (-f $git)) {
+ printf "Skipping... (git not found/installed)\n";
+ exit (0);
+}
+
+if (! ($user=`git config --get user.name 2>/dev/null`)) {
+ printf "Skipping... (git not found/installed)\n";
+ exit (0);
+}
+chop $user;
+if ("$user" ne "Markus Baertschi") {
+ printf "Skipping... (not on maintainers workstation)\n";
+ exit (0);
+}
+
+open(OUT,">Changes") or die "Can not open 'Changes' for writing\n";
+open(IN,"git log --abbrev-commit --pretty |") or die "Problem running git log\n";
while(<IN>){
# read the change log
if (/^commit /) {
@@ -19,9 +46,9 @@
my $vers = `git name-rev --tags $sha 2>/dev/null`;
$vers =~ s/^.*\///;
$vers =~ s/~.*$//;
- print OUT "commit $sha... PDF::Create $vers";
+ print "commit $sha... PDF::Create $vers";
} else {
- print OUT;
+ print;
}
}
Modified: trunk/libpdf-create-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/META.yml?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/META.yml (original)
+++ trunk/libpdf-create-perl/META.yml Wed Jul 15 20:07:45 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: PDF-Create
-version: 1.03
+version: 1.04
abstract: create PDF files
license: ~
generated_by: ExtUtils::MakeMaker version 6.36
Modified: trunk/libpdf-create-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/changelog?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/changelog (original)
+++ trunk/libpdf-create-perl/debian/changelog Wed Jul 15 20:07:45 2009
@@ -1,8 +1,14 @@
-libpdf-create-perl (1.03-2) UNRELEASED; urgency=low
+libpdf-create-perl (1.04-1) UNRELEASED; urgency=low
+ No need to upload
+
+ * New upstream release
+ + There was no changelog; diff shows textual and test changes only
+
+ [ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:36:52 +0000
+ -- Jonathan Yu <frequency at cpan.org> Wed, 15 Jul 2009 12:02:25 -0400
libpdf-create-perl (1.03-1) unstable; urgency=low
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=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/lib/PDF/Create.pm (original)
+++ trunk/libpdf-create-perl/lib/PDF/Create.pm Wed Jul 15 20:07:45 2009
@@ -25,7 +25,7 @@
package PDF::Create;
-our $VERSION = "1.03";
+our $VERSION = "1.04";
our $DEBUG = 0;
use strict;
@@ -1208,6 +1208,8 @@
is called. In this version GIF, interlaced GIF and JPEG is supported.
Usage of interlaced GIFs are slower because they are decompressed, modified
and compressed again.
+The gif support is limited to images with a lwz min code size of 8. Small
+images with few colors can have a smaller min code size.
Parameters:
Modified: trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm (original)
+++ trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm Wed Jul 15 20:07:45 2009
@@ -440,7 +440,7 @@
$self->{bpc} = unpack("C", $s);
if ($self->{bpc} != 8) {
close $fh;
- $self->{error} = "PDF::Image::GIF.pm: LZW minimum code size other than 8 not supported.";
+ $self->{error} = "PDF::Image::GIF.pm: LZW minimum code size is ".$self->{bpc}.", must be 8 to be supported.";
return 0;
}
Modified: trunk/libpdf-create-perl/t/1-simple.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/1-simple.t?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/1-simple.t (original)
+++ trunk/libpdf-create-perl/t/1-simple.t Wed Jul 15 20:07:45 2009
@@ -11,30 +11,33 @@
print "1..5\n";
-my $pdf = new PDF::Create('filename' => 'simple.pdf',
+my $pdfname = $0;
+$pdfname =~ s/\.t/\.pdf/;
+
+my $pdf = new PDF::Create('filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Simple Test Document',
);
-if ($pdf) { print "ok 1 # pdf created\n";
-} else { print "Bail out! # pdf creation failed\n"; }
+if ($pdf) { print "ok 1 # pdf created\n"; }
+else { print "Bail out! # pdf creation failed\n"; }
my $root = $pdf->new_page('MediaBox' => $pdf->get_page_size('A4'));
-if ($root) { print "ok 2 # root page created\n";
-} else { print "Bail out! # root page creation failed\n"; }
+if ($root) { print "ok 2 # root page created\n"; }
+else { print "Bail out! # root page creation failed\n"; }
# Prepare 2 fonts
my $f1 = $pdf->font('Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica');
-if ($f1) { print "ok 3 # font defined\n";
-} else { print "not ok 3 # font definition failed\n"; }
+if ($f1) { print "ok 3 # font defined\n"; }
+else { print "not ok 3 # font definition failed\n"; }
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
-if ($root) { print "ok 4 # page defined\n";
-} else { print "not ok 4 # page definition failed\n"; }
+if ($root) { print "ok 4 # page defined\n"; }
+else { print "not ok 4 # page definition failed\n"; }
# Write some text to the page
$page->stringc($f1, 40, 306, 700, 'PDF::Create');
Modified: trunk/libpdf-create-perl/t/2-jpeg.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/2-jpeg.t?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/2-jpeg.t (original)
+++ trunk/libpdf-create-perl/t/2-jpeg.t Wed Jul 15 20:07:45 2009
@@ -11,7 +11,10 @@
print "1..1\n";
-my $pdf = new PDF::Create('filename' => 'jpeg.pdf',
+my $pdfname = $0;
+$pdfname =~ s/\.t/\.pdf/;
+
+my $pdf = new PDF::Create('filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
Modified: trunk/libpdf-create-perl/t/3-gif.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/3-gif.t?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/3-gif.t (original)
+++ trunk/libpdf-create-perl/t/3-gif.t Wed Jul 15 20:07:45 2009
@@ -11,7 +11,10 @@
print "1..1\n";
-my $pdf = new PDF::Create('filename' => 'gif.pdf',
+my $pdfname = $0;
+$pdfname =~ s/\.t/\.pdf/;
+
+my $pdf = new PDF::Create('filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
Modified: trunk/libpdf-create-perl/t/4-graphics.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/4-graphics.t?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/4-graphics.t (original)
+++ trunk/libpdf-create-perl/t/4-graphics.t Wed Jul 15 20:07:45 2009
@@ -11,7 +11,10 @@
print "1..1\n";
-my $pdf = new PDF::Create('filename' => '4-graphics.pdf',
+my $pdfname = $0;
+$pdfname =~ s/\.t/\.pdf/;
+
+my $pdf = new PDF::Create('filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
Modified: trunk/libpdf-create-perl/t/5-complex.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/t/5-complex.t?rev=39977&op=diff
==============================================================================
--- trunk/libpdf-create-perl/t/5-complex.t (original)
+++ trunk/libpdf-create-perl/t/5-complex.t Wed Jul 15 20:07:45 2009
@@ -11,7 +11,10 @@
print "1..1\n";
-my $pdf = new PDF::Create('filename' => 'page-simple.pdf',
+my $pdfname = $0;
+$pdfname =~ s/\.t/\.pdf/;
+
+my $pdf = new PDF::Create('filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
More information about the Pkg-perl-cvs-commits
mailing list