[css-cvs] CVS: CSS-SAC SAC.pm,1.5,1.6 Changes,1.3,1.4

[Robin B. <da...@us...>]

Update of /cvsroot/perl-css/CSS-SAC
In directory usw-pr-cvs1:/tmp/cvs-serv13423

Modified Files:
	SAC.pm Changes 
Log Message:
more and more bugfixes

Index: SAC.pm
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/SAC.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- SAC.pm	2001/08/17 19:30:03	1.5
+++ SAC.pm	2001/08/17 19:55:25	1.6
@@ -71,7 +71,7 @@
 
 
 # matches a number
-$RE_NUM = qr/(?:(?:[0-9]+)|(?:[0-9]*\.[0-9]+))/;
+$RE_NUM = qr/(?:(?:[0-9]*\.[0-9]+)|(?:[0-9]+))/;
 
 
 # maps a length or assoc value to it's constant
@@ -382,7 +382,7 @@
             elsif ($css =~ s/^\s*\@page\s+//i) {
                 warn "[SAC] parsing page\n" if DEBUG;
                 # grab the name and pseudo-page if they're there
-                $css =~ s/^($RE_IDENT)?\s*(?::($RE_IDENT))//;
+                $css =~ s/^($RE_IDENT)?\s*(?::($RE_IDENT))?//;
                 my ($name,$pseudo) = ($1,$2);
 
                 # parse the block
@@ -398,7 +398,7 @@
             # at rules that we know nothing about will be like
             else {
                 my $at_rule;
-                warn "[SAC] parsing unknown at rule\n" if DEBUG;
+                warn "[SAC] parsing unknown at rule ($css)\n" if DEBUG;
 
                 # take off the @rule first
                 $css =~ s/^\s*(\@$RE_IDENT\s*)//;
@@ -1028,6 +1028,7 @@
             my $new_selector = shift @tokens;
             eval { $new_selector->SelectorType };
             if ($@) {
+#                last unless length $new_selector;
                 if (ref $new_selector) {
                     unshift @tokens, $new_selector;
                     $new_selector = $sac->[_sf_]->create_element_selector(undef,undef);

Index: Changes
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/Changes,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Changes	2001/08/17 19:30:03	1.3
+++ Changes	2001/08/17 19:55:25	1.4
@@ -6,14 +6,15 @@
 	a newline. As a result Text::Balanced 1.84 is now required.
 	- fixed a bug which caused some backslash escapes to fail in IDENT
 	tokens (thanks to Bjoern Hoehrmann)
-	- fixed a stupid precedence bug in the RGB regex (thanks to Steffen
-	Goeldner)
+	- fixed a stupid precedence bug in the RGB regex and the float regex
+	(patch by Steffen Goeldner)
 	- HTML end comments didn't work properly (Steffen Goeldner)
 	- @import looked for uri instead of url (Steffen Goeldner)
 	- added the possibility to parse properties that start with a '-'.
 	I don't think that's too spec clean, but a lot of people seem to want
 	those as extensions in various browsers (suggested by BH).
 	- added _ to the IDENT characters (it's in CSS2 Errata)
+	- fixed @page parsing (patch by SG)
 
 
 0.03  Mon Apr 23 16:44:16 2001