remove Tie::CPHash

This commit is contained in:
Graham Knop 2010-08-24 16:19:41 -05:00
parent ca7321f068
commit 29d1908e15
9 changed files with 2 additions and 17 deletions

View file

@ -16,7 +16,6 @@ package WebGUI::DatabaseLink;
use strict;
use Tie::CPHash;
use WebGUI::SQL;
use WebGUI::International;
use WebGUI::Utility;
@ -339,7 +338,7 @@ sub new {
my $class = shift;
my $session = shift;
my $databaseLinkId = shift;
tie my %databaseLink, 'Tie::CPHash';
my %databaseLink;
unless ($databaseLinkId eq "") {
if ($databaseLinkId eq "0") {
%databaseLink = (