Changeset 18363 for lang/perl

Timestamp:

08/28/08 08:12:47 (3 months ago)

Author:

tokuhirom

Message:

do not setup twice or more

Files:

• lang/perl/HTTP-Engine-Compat/trunk/lib/HTTP/Engine/Compat.pm (modified) (1 diff)

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

@@ -95 +95 @@
 sub _setup_interface {
     my ($class, $inter) = @_;
+
+    return if $initialized{$inter->name}++;
 
     $inter->make_mutable;