Changeset 11562 for dan

Timestamp:

05/14/08 12:37:01 (6 months ago)

Author:

aerith

Message:

dan/perl/closxop/lib/Closxop/Plugin.pm: warn 消し忘れました

Files:

• dan/perl/closxop/lib/Closxop/Plugin.pm (modified) (2 diffs)

dan/perl/closxop/lib/Closxop/Plugin.pm

@@ -19 +19 @@
                 next unless $object->module && $object->config;
 
-                warn ref $object;
-
                 if ( $self->plugin_name eq $object->module ) {
                         $self->plugin_config($object->config);
@@ -38 +36 @@
         my $name = ref $self;
 
-        $name =~ s{^Closxop::Plugin::?}{};
+        my $package = __PACKAGE__;
+        $name =~ s{^$package(?:\:\:)?}{};
 
         $name;