Changeset 9639 for lang/perl/HTML-Entities-ConvertPictogramMobileJp

Timestamp:

04/17/08 23:01:36 (5 years ago)

Author:

yappo

Message:

lang/perl/HTML-Entities-ConvertPictogramMobileJp?: ちゃんとうごかなかったので直した

Files:

• lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm (modified) (1 diff)

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm

@@ -16 +16 @@
             callbacks => {
                 'HTTP::MobileAgent or HTTP::MobileAttribute' => sub {
-                    ref $_[0] && ($_[0]->isa('HTTP::MobileAgent') || $_[0]->isa('HTTP::MobileAttribute'))
+                    my $pkg = ref $_[0];
+                    $pkg && (
+                        $_[0]->isa('HTTP::MobileAgent') ||
+                        $_[0]->isa('HTTP::MobileAttribute') ||
+                        $pkg =~ /^HTTP::MobileAttribute::Agent::/
+                    )
                 },
             },