Changeset 11684

Timestamp:

05/16/08 14:26:13 (5 years ago)

Author:

tokuhirom

Message:

r13908@o193-156: tokuhirom | 2008-05-16 10:29:11 +0900
we really required at here :)

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine.pm

@@ -21 +21 @@
     my($class, %args) = @_;
     return unless $args{middlewares} && ref $args{middlewares} eq 'ARRAY';
-    require UNIVERSAL::require;
 
     for my $middleware (@{ $args{middlewares} }) {
@@ -30 +29 @@
 sub load_middleware {
     my ($class, $middleware) = @_;
+
+    require UNIVERSAL::require;
 
     my $pkg;