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