r39096 - in /branches/upstream/libmarc-charset-perl/current: Changes META.yml lib/MARC/Charset.pm lib/MARC/Charset/Table.pm

nhandler-guest at users.alioth.debian.org nhandler-guest at users.alioth.debian.org
Wed Jul 1 23:31:52 UTC 2009


Author: nhandler-guest
Date: Wed Jul  1 23:31:46 2009
New Revision: 39096

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39096
Log:
[svn-upgrade] Integrating new upstream version, libmarc-charset-perl (1.1)

Modified:
    branches/upstream/libmarc-charset-perl/current/Changes
    branches/upstream/libmarc-charset-perl/current/META.yml
    branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset.pm
    branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset/Table.pm

Modified: branches/upstream/libmarc-charset-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmarc-charset-perl/current/Changes?rev=39096&op=diff
==============================================================================
--- branches/upstream/libmarc-charset-perl/current/Changes (original)
+++ branches/upstream/libmarc-charset-perl/current/Changes Wed Jul  1 23:31:46 2009
@@ -1,4 +1,9 @@
 Revision history for MARC::Charset
+
+1.1 Tue Jun 30 15:51:16 EDT 2009
+     - Patch from Damyan Ivanov of the Debian Perl Group to trim the size
+       of the character mapping db by 70 times! Uses GDBM_File instead of 
+       SDBM_File.
 
 1.00 Tue May 27 08:30:56 EDT 2008
      - Forgot to add etc/additional-iii-characters.xml to the MANIFEST

Modified: branches/upstream/libmarc-charset-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmarc-charset-perl/current/META.yml?rev=39096&op=diff
==============================================================================
--- branches/upstream/libmarc-charset-perl/current/META.yml (original)
+++ branches/upstream/libmarc-charset-perl/current/META.yml Wed Jul  1 23:31:46 2009
@@ -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:         MARC-Charset
-version:      1.0
+version:      1.1
 version_from: lib/MARC/Charset.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset.pm?rev=39096&op=diff
==============================================================================
--- branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset.pm (original)
+++ branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset.pm Wed Jul  1 23:31:46 2009
@@ -1,6 +1,6 @@
 package MARC::Charset;
 
-our $VERSION = '1.0';
+our $VERSION = '1.1';
 use strict;
 use warnings;
 

Modified: branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset/Table.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset/Table.pm?rev=39096&op=diff
==============================================================================
--- branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset/Table.pm (original)
+++ branches/upstream/libmarc-charset-perl/current/lib/MARC/Charset/Table.pm Wed Jul  1 23:31:46 2009
@@ -34,7 +34,7 @@
 use strict;
 use warnings;
 use POSIX;
-use SDBM_File;
+use GDBM_File;
 use MARC::Charset::Code;
 use MARC::Charset::Constants qw(:all);
 use Storable qw(freeze thaw);
@@ -49,7 +49,7 @@
 {
     my $class = shift;
     my $self = bless {}, ref($class) || $class;
-    $self->_init(O_RDONLY);
+    $self->_init(&GDBM_READER);
     return $self;
 }
 
@@ -174,7 +174,7 @@
 {
     my $class = shift;
     my $self = bless {}, ref($class) || $class;
-    $self->_init(O_CREAT|O_RDWR);
+    $self->_init(&GDBM_WRCREAT);
     return $self;
 }
 
@@ -184,7 +184,7 @@
 sub _init 
 {
     my ($self,$opts) = @_;
-    tie my %db, 'SDBM_File', db_path(), $opts, 0644;
+    tie my %db, 'GDBM_File', db_path(), $opts, 0644;
     $self->{db} = \%db;
 }
 




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