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/^(?:'|")//; # "
|
