Mailing List Archive

commit e81794d14ff593c55e5a5b7cccb2d7bf2c135897
Author: Jon Jensen <jon@endpoint.com>
Date: Fri Sep 16 16:28:00 2016 -0600

Consistently use same 'utf8' character set encoding to avoid Safe problems

Using the alternate 'utf-8' encoding name means Encode tries to pull in
Encode::Alias but fails inside Safe containers without allowing an absurd
number of exceptions via SafeUntrap.

lib/Vend/Table/GDBM.pm | 10 ++++------
1 files changed, 4 insertions(+), 6 deletions(-)
---
diff --git a/lib/Vend/Table/GDBM.pm b/lib/Vend/Table/GDBM.pm
index fb82dbb..55a4610 100644
--- a/lib/Vend/Table/GDBM.pm
+++ b/lib/Vend/Table/GDBM.pm
@@ -1,8 +1,6 @@
# Vend::Table::GDBM - Access an Interchange table stored in a GDBM file
#
-# $Id: GDBM.pm,v 2.20 2009-03-22 19:32:31 mheins Exp $
-#
-# Copyright (C) 2002-2008 Interchange Development Group
+# Copyright (C) 2002-2016 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -39,7 +37,7 @@ else {
}

@ISA = qw(Vend::Table::Common);
-$VERSION = substr(q$Revision: 2.20 $, 10);
+$VERSION = '2.21';

sub new {
my ($class, $obj) = @_;
@@ -147,8 +145,8 @@ sub apply_utf8_filters {

#::logDebug("applying UTF-8 filters to GDBM handle");

- my $out_filter = sub { $_ = encode('utf-8', $_) };
- my $in_filter = sub { $_ = decode('utf-8', $_) };
+ my $out_filter = sub { $_ = encode('utf8', $_) };
+ my $in_filter = sub { $_ = decode('utf8', $_) };

$handle->filter_store_key($out_filter);
$handle->filter_store_value($out_filter);

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs