Changeset 10047 for lang/perl/Moxy/trunk/lib/Moxy.pm

Timestamp:

04/21/08 12:16:01 (5 years ago)

Author:

tokuhirom

Message:

スラッシュついててもついてなくても大丈夫にした。

Files:

• lang/perl/Moxy/trunk/lib/Moxy.pm (modified) (1 diff)

lang/perl/Moxy/trunk/lib/Moxy.pm

@@ -121 +121 @@
             if ( my $attr = $node->attr($attr_name) ) {
                 $node->attr(
-                    $attr_name => sprintf( qq{$base%s},
+                    $attr_name => sprintf( qq{%s%s%s},
+                        $base,
+                        ($base =~ m{/$} ? '' : '/'),
                         uri_escape( URI->new($attr)->abs($base_url) ) )
                 );