r39098 - in /trunk/libmarc-charset-perl: Changes META.yml debian/changelog 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:33:41 UTC 2009


Author: nhandler-guest
Date: Wed Jul  1 23:33:36 2009
New Revision: 39098

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39098
Log:
Update to 1.1

Modified:
    trunk/libmarc-charset-perl/Changes
    trunk/libmarc-charset-perl/META.yml
    trunk/libmarc-charset-perl/debian/changelog
    trunk/libmarc-charset-perl/lib/MARC/Charset.pm
    trunk/libmarc-charset-perl/lib/MARC/Charset/Table.pm

Modified: trunk/libmarc-charset-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmarc-charset-perl/Changes?rev=39098&op=diff
==============================================================================
--- trunk/libmarc-charset-perl/Changes (original)
+++ trunk/libmarc-charset-perl/Changes Wed Jul  1 23:33:36 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: trunk/libmarc-charset-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmarc-charset-perl/META.yml?rev=39098&op=diff
==============================================================================
--- trunk/libmarc-charset-perl/META.yml (original)
+++ trunk/libmarc-charset-perl/META.yml Wed Jul  1 23:33:36 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: trunk/libmarc-charset-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmarc-charset-perl/debian/changelog?rev=39098&op=diff
==============================================================================
--- trunk/libmarc-charset-perl/debian/changelog (original)
+++ trunk/libmarc-charset-perl/debian/changelog Wed Jul  1 23:33:36 2009
@@ -1,3 +1,9 @@
+libmarc-charset-perl (1.1-1) UNRELEASED; urgency=low
+
+  * (NOT RELEASED YET) New upstream release
+
+ -- Nathan Handler <nhandler at ubuntu.com>  Wed, 01 Jul 2009 23:32:40 +0000
+
 libmarc-charset-perl (1.0-2) UNRELEASED; urgency=low
 
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN

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

Modified: trunk/libmarc-charset-perl/lib/MARC/Charset/Table.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmarc-charset-perl/lib/MARC/Charset/Table.pm?rev=39098&op=diff
==============================================================================
--- trunk/libmarc-charset-perl/lib/MARC/Charset/Table.pm (original)
+++ trunk/libmarc-charset-perl/lib/MARC/Charset/Table.pm Wed Jul  1 23:33:36 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