[css-cvs] CVS: CSS-SAC SAC.pm,1.7,1.8

[Bj?rn H?h. <hoe...@us...>]

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