From: Bj?rn H?h. <hoe...@us...> - 2001-10-21 18:35:34
|
Update of /cvsroot/perl-css/CSS-SAC In directory usw-pr-cvs1:/tmp/cvs-serv4754 Modified Files: SAC.pm Log Message: fixes local scope for RE_IDENT and uri() to url() Index: SAC.pm =================================================================== RCS file: /cvsroot/perl-css/CSS-SAC/SAC.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- SAC.pm 2001/10/21 17:19:37 1.7 +++ SAC.pm 2001/10/21 18:35:31 1.8 @@ -46,7 +46,7 @@ /xs; # matches a valid CSS ident (this may be wrong, needs testing) -my $RE_IDENT = qr/ +$RE_IDENT = qr/ (?:(?:\\(?:(?:[a-fA-F0-9]{1,6}[\t\x20])|[ \x32-\xff]))|[a-zA-Z\x80-\xff]) (?:(?:\\(?:(?:[a-fA-F0-9]{1,6}[\t\x20])|[ \x32-\xff]))|[a-zA-Z\x80-\xff0-9_-])* /xs; @@ -563,12 +563,12 @@ while ($$css =~ s/^\s*\@namespace\s+//i) { my ($prefix,$uri); # first get the prefix - if ($$css !~ /^uri\(/ and $$css =~ s/^($RE_IDENT)\s+//) { + if ($$css !~ /^url\(/ and $$css =~ s/^($RE_IDENT)\s+//) { $prefix = $1; } # then get the uri - if ($$css =~ s/^uri\(//) { + if ($$css =~ s/^url\(//) { $$css =~ s/^((?:$RE_STRING)|([^\)]*))\s*//; $uri = $1; $uri =~ s/^(?:'|")//; # " |