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