From: Robin B. <da...@us...> - 2001-10-21 17:19:40
|
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}; |