fix things i broke

This commit is contained in:
Graham Knop 2010-04-18 13:42:40 -05:00
parent ecc9967f2e
commit d667f724f4
4 changed files with 7 additions and 2 deletions

View file

@ -80,6 +80,9 @@ sub AUTOLOAD {
return $control->getValue(@args);
}
# so it doesn't get autoloaded
sub DESTROY {}
#-------------------------------------------------------------------
=head2 get ( )

View file

@ -21,7 +21,7 @@ use DateTime::Format::Mail;
use DateTime::TimeZone;
use Tie::IxHash;
use WebGUI::International;
use WebGUI::Utility qw(round);
use WebGUI::Utility qw(round isIn);
use Scalar::Util qw(weaken);

View file

@ -207,7 +207,8 @@ sub new {
# Thanks to Plack, wG has been decoupled from Log4Perl
# However when called outside a web context, we currently still fall back to Log4perl
# (pending a better idea)
Log::Log4perl->init_once( $session->config->getWebguiRoot . "/etc/log.conf" );
require Log::Log4perl;
Log::Log4perl->init_once( WebGUI::Paths->logConfig );
my $log4perl = Log::Log4perl->get_logger( $session->config->getFilename );
$logger = sub {
my $args = shift;

View file

@ -17,6 +17,7 @@ package WebGUI::Session::Http;
use strict;
use Scalar::Util qw(weaken);
use WebGUI::Utility qw(isIn);
use HTTP::Date ();
sub _deprecated {