Changeset 22869 for lang/perl/Moxy

Timestamp:

11/07/08 01:05:20 (2 months ago)

Author:

tokuhirom

Message:

works with perl5.10

Files:

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

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

@@ -98 +98 @@
 
     $css =~ s{url\(([^\)]+)\)}{
+        my $x = $1;
         sprintf "url(%s%s%s)",
             $base,
             ($base =~ m{/$} ? '' : '/'),
-            uri_escape( URI->new($1)->abs($base_url) )
+            uri_escape( URI->new($x)->abs($base_url) )
     }ge;