perl-css-commits

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

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

Modified Files:
	SAC.pm 
Log Message:
fix bug that didn't provide entire ignorable_at_rule information

Index: SAC.pm
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/SAC.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- SAC.pm	2001/08/17 19:55:25	1.6
+++ SAC.pm	2001/10/21 17:19:37	1.7
@@ -20,7 +20,7 @@
             %DIM_MAP
             %FUNC_MAP
            );
-$VERSION = '0.04';
+$VERSION = '0.03_90';
 
 use CSS::SAC::ConditionFactory  qw();
 use CSS::SAC::SelectorFactory   qw();
@@ -413,8 +413,9 @@
                     $at_rule .= ';';
                 }
                 else {
-                    (undef,$css,undef) = Text::Balanced::extract_bracketed($css,q/{}'"/,qr/\s*/); #"
-                    $at_rule .= $1;
+                    my $block;
+                    ($block,$css,undef) = Text::Balanced::extract_bracketed($css,q/{}'"/,qr/\s*/); #"
+                    $at_rule .= $block;
                 }
 
                 $sac->[_dh_]->ignorable_at_rule($at_rule) if $sac->[_dh_can_]->{ignorable_at_rule};