r7980 - in /trunk/libpdf-api2-perl: META.yml debian/changelog lib/PDF/API2.pm lib/PDF/API2/Basic/PDF/File.pm lib/PDF/API2/Version.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Thu Sep 27 20:39:29 UTC 2007


Author: dmn
Date: Thu Sep 27 20:39:28 2007
New Revision: 7980

URL: http://svn.debian.org/wsvn/?sc=1&rev=7980
Log:
New upstream release

Modified:
    trunk/libpdf-api2-perl/META.yml
    trunk/libpdf-api2-perl/debian/changelog
    trunk/libpdf-api2-perl/lib/PDF/API2.pm
    trunk/libpdf-api2-perl/lib/PDF/API2/Basic/PDF/File.pm
    trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm

Modified: trunk/libpdf-api2-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/META.yml?rev=7980&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/META.yml (original)
+++ trunk/libpdf-api2-perl/META.yml Thu Sep 27 20:39:28 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.64
+version:      0.65
 version_from: lib/PDF/API2/Version.pm
 installdirs:  site
 requires:

Modified: trunk/libpdf-api2-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/debian/changelog?rev=7980&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/debian/changelog (original)
+++ trunk/libpdf-api2-perl/debian/changelog Thu Sep 27 20:39:28 2007
@@ -1,9 +1,11 @@
-libpdf-api2-perl (0.64-2) UNRELEASED; urgency=low
-
+libpdf-api2-perl (0.65-1) UNRELEASED; urgency=low
+
+  * New upstream release
   * Add missing Homepage field to source stanza in debian/control.
   * Add examples to the package
 
- -- Damyan Ivanov <dmn at debian.org>  Thu, 27 Sep 2007 16:46:58 +0300
+
+ -- Damyan Ivanov <dmn at debian.org>  Thu, 27 Sep 2007 23:38:58 +0300
 
 libpdf-api2-perl (0.64-1) unstable; urgency=low
 

Modified: trunk/libpdf-api2-perl/lib/PDF/API2.pm
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/lib/PDF/API2.pm?rev=7980&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/lib/PDF/API2.pm (original)
+++ trunk/libpdf-api2-perl/lib/PDF/API2.pm Thu Sep 27 20:39:28 2007
@@ -27,7 +27,7 @@
 #   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 #   Boston, MA 02111-1307, USA.
 #
-#   $Id: API2.pm,v 2.10 2007/08/01 23:12:08 areibens Exp $
+#   $Id: API2.pm,v 2.11 2007/09/18 22:29:31 areibens Exp $
 #
 #=======================================================================
 
@@ -37,7 +37,7 @@
 
     use vars qw( $VERSION $seq @FontDirs );
 
-    ($VERSION) = sprintf '%i.%03i', split(/\./,('$Revision: 2.10 $' =~ /Revision: (\S+)\s/)[0]);  # $Date: 2007/08/01 23:12:08 $
+    ($VERSION) = sprintf '%i.%03i', split(/\./,('$Revision: 2.11 $' =~ /Revision: (\S+)\s/)[0]);  # $Date: 2007/09/18 22:29:31 $
 
     @FontDirs = ( (map { "$_/PDF/API2/fonts" } @INC), 
         qw[ /usr/share/fonts /usr/local/share/fonts c:/windows/fonts c:/winnt/fonts ] );
@@ -352,6 +352,9 @@
 I<-afterfullscreenoutlines>
         ... Document outline visible after Full-screen mode.
 
+I<-printscalingnone>
+		... Set the default print setting for page scaling to none.
+
 =cut
 
 =pod
@@ -485,6 +488,10 @@
         $self->{catalog}->{ViewerPreferences}->{NonFullScreenPageMode}=PDFName('UseOutlines');
     } else {
         $self->{catalog}->{ViewerPreferences}->{NonFullScreenPageMode}=PDFName('UseNone');
+    }
+
+    if($opt{-printscalingnone}) {
+		$self->{catalog}->{ViewerPreferences}->{PrintScaling}=PDFName("None");
     }
 
     if($opt{-firstpage}) {
@@ -2533,6 +2540,9 @@
 =head1 HISTORY
 
     $Log: API2.pm,v $
+    Revision 2.11  2007/09/18 22:29:31  areibens
+    added -printscalingnone option
+
     Revision 2.10  2007/08/01 23:12:08  areibens
     fix BOM in info strings
 

Modified: trunk/libpdf-api2-perl/lib/PDF/API2/Basic/PDF/File.pm
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/lib/PDF/API2/Basic/PDF/File.pm?rev=7980&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/lib/PDF/API2/Basic/PDF/File.pm (original)
+++ trunk/libpdf-api2-perl/lib/PDF/API2/Basic/PDF/File.pm Thu Sep 27 20:39:28 2007
@@ -23,7 +23,7 @@
 #   This specific module is licensed under the Perl Artistic License.
 #
 #
-#   $Id: File.pm,v 2.7 2007/06/07 10:43:59 areibens Exp $
+#   $Id: File.pm,v 2.8 2007/09/26 19:50:14 areibens Exp $
 #
 #=======================================================================
 package PDF::API2::Basic::PDF::File;
@@ -201,7 +201,7 @@
 
 no warnings qw[ deprecated recursion uninitialized ];
 
-    ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.7 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/06/07 10:43:59 $
+    ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.8 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/09/26 19:50:14 $
 
 #IMPORTED INTO PDF::API2
 
@@ -1220,12 +1220,10 @@
         }
     }
 
-#    if ($buf !~ /^trailer$cr/oi)
-    if ($buf !~ /^trailer\b/oi)
+    if ($buf !~ /^\s*trailer\b/oi)
     { die "Malformed trailer in PDF file $self->{' fname'} at " . ($fh->tell - length($buf)); }
 
-#    $buf =~ s/^trailer$cr//oi;
-    $buf =~ s/^trailer\b//oi;
+    $buf =~ s/^\s*trailer\b//oi;
 
     ($tdict, $buf) = $self->readval($buf);
     $tdict->{' loc'} = $xpos;

Modified: trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm?rev=7980&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm (original)
+++ trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm Thu Sep 27 20:39:28 2007
@@ -9,14 +9,14 @@
 package PDF::API2::Version;
 BEGIN {
     use vars qw( $VERSION %CVersion );
-    $VERSION = '0.64';
+    $VERSION = '0.65';
     %CVersion = (
-        'vFredo' => 'PDF::API2 0.64',
-        'vHex' => '0x00040000',
-        'vLong' => '0.64',
-        'vPerl' => '0.64',
-        'vShort' => '0.64',
-        'vWeb' => 'PDF::API2/0.64',
+        'vFredo' => 'PDF::API2 0.65',
+        'vHex' => '0x00041000',
+        'vLong' => '0.65',
+        'vPerl' => '0.65',
+        'vShort' => '0.65',
+        'vWeb' => 'PDF::API2/0.65',
     );
 }
 1;
@@ -32,12 +32,12 @@
 
 =head1 VERSION
 
-  vFredo: PDF::API2 0.64 
-    vHex: 0x00040000 
-   vLong: 0.64 
-   vPerl: 0.64 
-  vShort: 0.64 
-    vWeb: PDF::API2/0.64 
+  vFredo: PDF::API2 0.65 
+    vHex: 0x00041000 
+   vLong: 0.65 
+   vPerl: 0.65 
+  vShort: 0.65 
+    vWeb: PDF::API2/0.65 
 
 =cut
 




More information about the Pkg-perl-cvs-commits mailing list