Changeset 12673 for lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/DocRoot.pm

Timestamp:

05/29/08 09:05:30 (5 years ago)

Author:

tokuhirom

Message:

oops

Files:

• lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/DocRoot.pm (modified) (1 diff)

lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/DocRoot.pm

@@ -80 +80 @@
     }
     for my $elem ($doc->findnodes('//script')) {
-        $elem->setAttribute(src => $root . $elem->getAttribute('src'));
+        if ($elem->hasAttribute('src')) {
+            $elem->setAttribute(src => $root . $elem->getAttribute('src'));
+        }
     }