ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/DB.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/DB.pm (file contents):
Revision 1.40 by root, Wed Nov 26 23:08:34 2008 UTC vs.
Revision 1.41 by root, Wed Dec 24 04:09:27 2008 UTC

… …
84sub table($) { 84sub table($) {
85 $DB_TABLE{$_[0]} ||= do { 85 $DB_TABLE{$_[0]} ||= do {
86 my ($table) = @_; 86 my ($table) = @_;
87 87
88 $table =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge; 88 $table =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge;
89
90 $DB_ENV#d#
91 or return ::clienterror ("trying to create table $_[0] with empty db_env $DB_ENV" => 1);#d#
89 92
90 my $db = db_create $DB_ENV; 93 my $db = db_create $DB_ENV;
91 $db->set_flags (BDB::CHKSUM); 94 $db->set_flags (BDB::CHKSUM);
92 95
93 db_open $db, undef, $table, undef, BDB::BTREE, 96 db_open $db, undef, $table, undef, BDB::BTREE,

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines