r5376 - in /packages/libpdf-api2-perl/trunk: ./ debian/ examples/
lib/PDF/
lib/PDF/API2/ lib/PDF/API2/Basic/TTF/ lib/PDF/API2/Resource/
lib/PDF/API2/Resource/CIDFont/TrueType/ lib/PDF/API2/Resource/Font/
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Wed May 9 15:23:59 UTC 2007
Author: gwolf
Date: Wed May 9 15:23:54 2007
New Revision: 5376
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5376
Log:
New upstream version
Modified:
packages/libpdf-api2-perl/trunk/META.yml
packages/libpdf-api2-perl/trunk/Makefile.PL
packages/libpdf-api2-perl/trunk/debian/changelog
packages/libpdf-api2-perl/trunk/examples/022_truefonts
packages/libpdf-api2-perl/trunk/examples/023_cjkfonts
packages/libpdf-api2-perl/trunk/lib/PDF/API2.pm
packages/libpdf-api2-perl/trunk/lib/PDF/API2/Basic/TTF/Name.pm
packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/BaseFont.pm
packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/CIDFont/TrueType/FontFile.pm
packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/Font/SynFont.pm
packages/libpdf-api2-perl/trunk/lib/PDF/API2/Version.pm
Modified: packages/libpdf-api2-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/META.yml?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/META.yml (original)
+++ packages/libpdf-api2-perl/trunk/META.yml Wed May 9 15:23:54 2007
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: PDF-API2
-version: 0.59.002
+version: 0.61
version_from: lib/PDF/API2/Version.pm
installdirs: site
requires:
Modified: packages/libpdf-api2-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/Makefile.PL?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/Makefile.PL (original)
+++ packages/libpdf-api2-perl/trunk/Makefile.PL Wed May 9 15:23:54 2007
@@ -28,7 +28,7 @@
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
-# $Id: Makefile.PL,v 2.1 2005/11/16 02:52:26 areibens Exp $
+# $Id: Makefile.PL,v 2.2 2007/03/17 22:41:01 areibens Exp $
#
#=======================================================================
@@ -58,7 +58,7 @@
WriteMakefile( %makehash );
-print STDERR $PDF::API2::Version::CVersion{vTeX}."\n";
+print STDERR $PDF::API2::Version::CVersion{vWeb}."\n";
exit;
Modified: packages/libpdf-api2-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/debian/changelog?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/debian/changelog (original)
+++ packages/libpdf-api2-perl/trunk/debian/changelog Wed May 9 15:23:54 2007
@@ -1,3 +1,9 @@
+libpdf-api2-perl (0.61-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Gunnar Wolf <gwolf at debian.org> Wed, 09 May 2007 10:18:25 -0500
+
libpdf-api2-perl (0.59.002-1) unstable; urgency=low
* New upstream release
Modified: packages/libpdf-api2-perl/trunk/examples/022_truefonts
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/examples/022_truefonts?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/examples/022_truefonts (original)
+++ packages/libpdf-api2-perl/trunk/examples/022_truefonts Wed May 9 15:23:54 2007
@@ -31,10 +31,10 @@
# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
-# $Id: 022_truefonts,v 2.1 2006/06/19 19:20:13 areibens Exp $
+# $Id: 022_truefonts,v 2.2 2007/04/07 10:26:23 areibens Exp $
#
#=======================================================================
-
+use lib qw{ ../lib };
use File::Basename;
use PDF::API2;
use PDF::API2::Util;
@@ -44,7 +44,7 @@
my $sx=33;
my $sy=45;
my $fx=20;
-
+my $LoremIpsum=q|Sed ut perspiciatis, unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam eaque ipsa, quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt, explicabo. Nemo enim ipsam voluptatem, quia voluptas sit, aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos, qui ratione voluptatem sequi nesciunt, neque porro quisquam est, qui dolorem ipsum, quia dolor sit, amet, consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt, ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, quis nostrum exercitationem ullam corporis suscipit laboriosam, nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit, qui in ea voluptate velit esse, quam nihil molestiae consequatur, vel illum, qui dolorem eum fugiat, quo voluptas nulla pariatur? At vero eos et accusamus et iusto odio dignissimos ducimus, qui blanditiis praesentium voluptatum deleniti atque corrupti, quos dolores et quas molestias excepturi sint, obcaecati cupiditate non provident, similique sunt in culpa, qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio, cumque nihil impedit, quo minus id, quod maxime placeat, facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet, ut et voluptates repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores alias consequatur aut perferendis doloribus asperiores repellat.|;
my $encoding='latin1';
GetOptions(
@@ -204,6 +204,26 @@
print STDERR ".";
$pdf->finishobjects($page,$gfx);
}
+
+ my $text=$LoremIpsum;
+
+ $page = $pdf->page;
+ $page->mediabox(595,842);
+ $gfx=$page->gfx;
+ $gfx->transform(-translate => [50, 800]);
+ $gfx->textstart;
+ $gfx->fillcolor('black');
+ $gfx->font($font,18);
+ $gfx->lead(18*1.25);
+ my $toprint;
+ while($text ne '')
+ {
+ ($toprint,$text)=$gfx->_text_fill_line($text,500,0);
+ $gfx->text($toprint);
+ $gfx->nl;
+ }
+ $gfx->textend;
+
$pdf->save;
$pdf->end;
}
@@ -215,6 +235,9 @@
=head1 HISTORY
$Log: 022_truefonts,v $
+ Revision 2.2 2007/04/07 10:26:23 areibens
+ added lorem ipsum page
+
Revision 2.1 2006/06/19 19:20:13 areibens
added details
Modified: packages/libpdf-api2-perl/trunk/examples/023_cjkfonts
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/examples/023_cjkfonts?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/examples/023_cjkfonts (original)
+++ packages/libpdf-api2-perl/trunk/examples/023_cjkfonts Wed May 9 15:23:54 2007
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
#=======================================================================
# ____ ____ _____ _ ____ ___ ____
# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
@@ -31,14 +31,14 @@
# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
-# $Id: 023_cjkfonts,v 2.0 2005/11/16 02:16:00 areibens Exp $
+# $Id: 023_cjkfonts,v 2.1 2007/04/07 10:28:35 areibens Exp $
#
#=======================================================================
-
+use lib qw{ ../lib };
use PDF::API2;
use PDF::API2::Util;
use Unicode::UCD 'charinfo';
-
+my $LoremIpsum=q|Sed ut perspiciatis, unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam eaque ipsa, quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt, explicabo. Nemo enim ipsam voluptatem, quia voluptas sit, aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos, qui ratione voluptatem sequi nesciunt, neque porro quisquam est, qui dolorem ipsum, quia dolor sit, amet, consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt, ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, quis nostrum exercitationem ullam corporis suscipit laboriosam, nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit, qui in ea voluptate velit esse, quam nihil molestiae consequatur, vel illum, qui dolorem eum fugiat, quo voluptas nulla pariatur? At vero eos et accusamus et iusto odio dignissimos ducimus, qui blanditiis praesentium voluptatum deleniti atque corrupti, quos dolores et quas molestias excepturi sint, obcaecati cupiditate non provident, similique sunt in culpa, qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio, cumque nihil impedit, quo minus id, quod maxime placeat, facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet, ut et voluptates repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores alias consequatur aut perferendis doloribus asperiores repellat.|;
my $sx=33;
my $sy=45;
my $fx=20;
@@ -141,6 +141,26 @@
print STDERR ".";
$pdf->finishobjects($page,$gfx);
}
+
+ my $text=$LoremIpsum;
+
+ $page = $pdf->page;
+ $page->mediabox(595,842);
+ $gfx=$page->gfx;
+ $gfx->transform(-translate => [50, 800]);
+ $gfx->textstart;
+ $gfx->fillcolor('black');
+ $gfx->font($font,18);
+ $gfx->lead(18*1.25);
+ my $toprint;
+ while($text ne '')
+ {
+ ($toprint,$text)=$gfx->_text_fill_line($text,500,0);
+ $gfx->text($toprint);
+ $gfx->nl;
+ }
+ $gfx->textend;
+
$pdf->save;
$pdf->end;
}
@@ -152,6 +172,9 @@
=head1 HISTORY
$Log: 023_cjkfonts,v $
+ Revision 2.1 2007/04/07 10:28:35 areibens
+ added lorem ipsum page
+
Revision 2.0 2005/11/16 02:16:00 areibens
revision workaround for SF cvs import not to screw up CPAN
Modified: packages/libpdf-api2-perl/trunk/lib/PDF/API2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/lib/PDF/API2.pm?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/lib/PDF/API2.pm (original)
+++ packages/libpdf-api2-perl/trunk/lib/PDF/API2.pm Wed May 9 15:23:54 2007
@@ -27,7 +27,7 @@
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
-# $Id: API2.pm,v 2.5 2007/03/17 20:07:21 areibens Exp $
+# $Id: API2.pm,v 2.6 2007/05/07 20:33:46 areibens Exp $
#
#=======================================================================
@@ -37,7 +37,7 @@
use vars qw( $VERSION $seq @FontDirs );
- ($VERSION) = sprintf '%i.%03i', split(/\./,('$Revision: 2.5 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/03/17 20:07:21 $
+ ($VERSION) = sprintf '%i.%03i', split(/\./,('$Revision: 2.6 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/05/07 20:33:46 $
@FontDirs = ( (map { "$_/PDF/API2/fonts" } @INC),
qw[ /usr/share/fonts /usr/local/share/fonts c:/windows/fonts c:/winnt/fonts ] );
@@ -1637,7 +1637,7 @@
my $obj=PDF::API2::Resource::Font::CoreFont->new_api($self,$name, at opts);
$self->resource('Font',$obj->name,$obj);
$self->{pdf}->out_obj($self->{pages});
- $obj->tounicodemap;
+ $obj->tounicodemap if($opts{-unicodemap}==1);
return($obj);
}
@@ -1684,7 +1684,7 @@
$self->resource('Font',$obj->name,$obj,$self->{reopened});
$self->{pdf}->out_obj($self->{pages});
- $obj->tounicodemap;
+ $obj->tounicodemap if($opts{-unicodemap}==1);
return($obj);
}
@@ -1723,7 +1723,7 @@
$self->resource('Font',$obj->name,$obj,$self->{reopened});
$self->{pdf}->out_obj($self->{pages});
- $obj->tounicodemap;
+ $obj->tounicodemap if($opts{-unicodemap}==1);
return($obj);
}
@@ -1756,7 +1756,7 @@
$self->resource('Font',$obj->name,$obj,$self->{reopened});
$self->{pdf}->out_obj($self->{pages});
- $obj->tounicodemap;
+ $obj->tounicodemap if($opts{-unicodemap}==1);
return($obj);
}
@@ -1801,7 +1801,7 @@
$self->resource('Font',$obj->name,$obj,$self->{reopened});
$self->{pdf}->out_obj($self->{pages});
- $obj->tounicodemap;
+ $obj->tounicodemap if($opts{-unicodemap}==1);
return($obj);
}
@@ -2522,6 +2522,9 @@
=head1 HISTORY
$Log: API2.pm,v $
+ Revision 2.6 2007/05/07 20:33:46 areibens
+ fix tounicode option
+
Revision 2.5 2007/03/17 20:07:21 areibens
fixed open to CORE::open
Modified: packages/libpdf-api2-perl/trunk/lib/PDF/API2/Basic/TTF/Name.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/lib/PDF/API2/Basic/TTF/Name.pm?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/lib/PDF/API2/Basic/TTF/Name.pm (original)
+++ packages/libpdf-api2-perl/trunk/lib/PDF/API2/Basic/TTF/Name.pm Wed May 9 15:23:54 2007
@@ -21,7 +21,7 @@
# This specific module is licensed under the Perl Artistic License.
#
#
-# $Id: Name.pm,v 2.0 2005/11/16 02:16:00 areibens Exp $
+# $Id: Name.pm,v 2.1 2007/04/25 17:58:43 areibens Exp $
#
#=======================================================================
package PDF::API2::Basic::TTF::Name;
@@ -92,6 +92,7 @@
=cut
use strict;
+use bytes;
use vars qw(@ISA $VERSION @apple_encs @apple_encodings $utf8 $cp_1252 @cp_1252);
use PDF::API2::Basic::TTF::Table;
use PDF::API2::Basic::TTF::Utils;
@@ -138,7 +139,7 @@
($num, $stroff) = unpack("x2nn", $dat);
for ($i = 0; $i < $num; $i++)
{
- $fh->read($dat, 12);
+ read($fh,$dat, 12);
($pid, $eid, $lid, $nid, $len, $off) = unpack("n6", $dat);
$here = $fh->tell();
$fh->seek($self->{' OFFSET'} + $stroff + $off, 0);
Modified: packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/BaseFont.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/BaseFont.pm?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/BaseFont.pm (original)
+++ packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/BaseFont.pm Wed May 9 15:23:54 2007
@@ -27,7 +27,7 @@
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
-# $Id: BaseFont.pm,v 2.5 2007/01/04 16:33:20 areibens Exp $
+# $Id: BaseFont.pm,v 2.7 2007/04/07 10:25:46 areibens Exp $
#
#=======================================================================
package PDF::API2::Resource::BaseFont;
@@ -46,7 +46,7 @@
@ISA = qw( PDF::API2::Resource );
- ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.5 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/01/04 16:33:20 $
+ ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.7 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/04/07 10:25:46 $
}
no warnings qw[ deprecated recursion uninitialized ];
@@ -555,7 +555,9 @@
}
else
{
- return ( $self->data->{wx}->[$val] || $self->missingwidth || 300 );
+ my $cid=$self->cidByUni(uniByName($val));
+ return ( $self->data->{wx}->[$cid] || $self->missingwidth || 300 );
+ # return ( $self->data->{wx}->[$val] || $self->missingwidth || 300 );
}
}
@@ -774,6 +776,12 @@
=head1 HISTORY
$Log: BaseFont.pm,v $
+ Revision 2.7 2007/04/07 10:25:46 areibens
+ fixed fix for wxByGlyph not honoring cidfont width arrays
+
+ Revision 2.6 2007/04/07 09:51:16 areibens
+ fix for wxByGlyph not honoring cidfont width arrays
+
Revision 2.5 2007/01/04 16:33:20 areibens
fix acro 8 fix
Modified: packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/CIDFont/TrueType/FontFile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/CIDFont/TrueType/FontFile.pm?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/CIDFont/TrueType/FontFile.pm (original)
+++ packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/CIDFont/TrueType/FontFile.pm Wed May 9 15:23:54 2007
@@ -27,7 +27,7 @@
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
-# $Id: FontFile.pm,v 2.2 2007/03/17 20:38:51 areibens Exp $
+# $Id: FontFile.pm,v 2.3 2007/05/07 20:31:21 areibens Exp $
#
#=======================================================================
package PDF::API2::Resource::CIDFont::TrueType::FontFile;
@@ -48,7 +48,7 @@
@ISA = qw( PDF::API2::Basic::PDF::Dict );
- ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.2 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/03/17 20:38:51 $
+ ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.3 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/05/07 20:31:21 $
$cmap={};
}
no warnings qw[ recursion uninitialized ];
@@ -642,6 +642,8 @@
$data->{altname}=~s/[^a-zA-Z0-9]//og;
$data->{subname}=~s/[^a-zA-Z0-9]//og;
+ $self->subsetByCId(0);
+
return($self,$data);
}
@@ -724,6 +726,9 @@
=head1 HISTORY
$Log: FontFile.pm,v $
+ Revision 2.3 2007/05/07 20:31:21 areibens
+ fix subsetting
+
Revision 2.2 2007/03/17 20:38:51 areibens
replaced IOString dep. with scalar IO.
Modified: packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/Font/SynFont.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/Font/SynFont.pm?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/Font/SynFont.pm (original)
+++ packages/libpdf-api2-perl/trunk/lib/PDF/API2/Resource/Font/SynFont.pm Wed May 9 15:23:54 2007
@@ -27,7 +27,7 @@
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
-# $Id: SynFont.pm,v 2.0 2005/11/16 02:18:14 areibens Exp $
+# $Id: SynFont.pm,v 2.1 2007/04/18 05:26:48 areibens Exp $
#
#=======================================================================
package PDF::API2::Resource::Font::SynFont;
@@ -46,7 +46,7 @@
@ISA=qw(PDF::API2::Resource::Font);
- ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.0 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2005/11/16 02:18:14 $
+ ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.1 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/04/18 05:26:48 $
}
no warnings qw[ deprecated recursion uninitialized ];
@@ -206,7 +206,12 @@
$char->{' stream'}.="BT\n";
$char->{' stream'}.=join(' ',1,0,tan(deg2rad($oblique)),1,0,0)." Tm\n" if($oblique);
$char->{' stream'}.="2 Tr ".($bold)." w\n" if($bold);
- my $ci = charinfo($self->data->{uni}->[$w]);
+ # my $ci = charinfo($self->data->{uni}->[$w]);
+ my $ci={};
+ if ($self->data->{uni}->[$w] ne '')
+ {
+ $ci = charinfo($self->data->{uni}->[$w]);
+ }
if($opts{-caps} && $ci->{upper})
{
$char->{' stream'}.="/FSN 800 Tf\n";
@@ -292,6 +297,9 @@
=head1 HISTORY
$Log: SynFont.pm,v $
+ Revision 2.1 2007/04/18 05:26:48 areibens
+ fixed unicode caos handling for some broken fonts having no unicode for a glyph
+
Revision 2.0 2005/11/16 02:18:14 areibens
revision workaround for SF cvs import not to screw up CPAN
Modified: packages/libpdf-api2-perl/trunk/lib/PDF/API2/Version.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-api2-perl/trunk/lib/PDF/API2/Version.pm?rev=5376&op=diff
==============================================================================
--- packages/libpdf-api2-perl/trunk/lib/PDF/API2/Version.pm (original)
+++ packages/libpdf-api2-perl/trunk/lib/PDF/API2/Version.pm Wed May 9 15:23:54 2007
@@ -9,14 +9,14 @@
package PDF::API2::Version;
BEGIN {
use vars qw( $VERSION %CVersion );
- $VERSION = '0.59.002';
+ $VERSION = '0.61';
%CVersion = (
- 'vFredo' => 'PDF::API2 0.59.002',
- 'vHex' => '0x0003B002',
- 'vLong' => '0.59.002',
- 'vPerl' => '0.59.002',
- 'vShort' => '0.59',
- 'vWeb' => 'PDF::API2/0.59.002',
+ 'vFredo' => 'PDF::API2 0.61',
+ 'vHex' => '0x0003D000',
+ 'vLong' => '0.61',
+ 'vPerl' => '0.61',
+ 'vShort' => '0.61',
+ 'vWeb' => 'PDF::API2/0.61',
);
}
1;
@@ -32,12 +32,12 @@
=head1 VERSION
- vFredo: PDF::API2 0.59.002
- vHex: 0x0003B002
- vLong: 0.59.002
- vPerl: 0.59.002
- vShort: 0.59
- vWeb: PDF::API2/0.59.002
+ vFredo: PDF::API2 0.61
+ vHex: 0x0003D000
+ vLong: 0.61
+ vPerl: 0.61
+ vShort: 0.61
+ vWeb: PDF::API2/0.61
=cut
More information about the Pkg-perl-cvs-commits
mailing list