r24443 - in /trunk/libmarc-charset-perl/debian/patches: ./ gdbm.patch series

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Aug 22 06:08:59 2008
New Revision: 24443

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24443
Log:
add gdbm.patch by Niko Tyni

Converts the database from 400MB SDBM to a few megabytes GDBM,
addressing #481505

Added:
    trunk/libmarc-charset-perl/debian/patches/
    trunk/libmarc-charset-perl/debian/patches/gdbm.patch
    trunk/libmarc-charset-perl/debian/patches/series

Added: trunk/libmarc-charset-perl/debian/patches/gdbm.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmarc-charset-perl/debian/patches/gdbm.patch?rev=24443&op=file
==============================================================================
--- trunk/libmarc-charset-perl/debian/patches/gdbm.patch (added)
+++ trunk/libmarc-charset-perl/debian/patches/gdbm.patch Fri Aug 22 06:08:59 2008
@@ -1,0 +1,38 @@
+--- a/lib/MARC/Charset/Table.pm
++++ b/lib/MARC/Charset/Table.pm
+@@ -34,7 +34,7 @@ UCS code point. These keys map to a seri
+ 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 @@ sub new
+ {
+     my $class = shift;
+     my $self = bless {}, ref($class) || $class;
+-    $self->_init(O_RDONLY);
++    $self->_init(&GDBM_READER);
+     return $self;
+ }
+ 
+@@ -174,7 +174,7 @@ sub brand_new 
+ {
+     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 brand_new 
+ 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;
+ }
+ 

Added: trunk/libmarc-charset-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmarc-charset-perl/debian/patches/series?rev=24443&op=file
==============================================================================
--- trunk/libmarc-charset-perl/debian/patches/series (added)
+++ trunk/libmarc-charset-perl/debian/patches/series Fri Aug 22 06:08:59 2008
@@ -1,0 +1,1 @@
+gdbm.patch