fix 11954 Can't clear packed head tags

This commit is contained in:
Doug Bell 2010-11-16 18:47:51 -06:00
parent c8aa4a57da
commit 270f52aaaa
3 changed files with 31 additions and 2 deletions

View file

@ -2308,7 +2308,11 @@ filter guidelines).
sub packExtraHeadTags {
my ( $self, $unpacked ) = @_;
return $unpacked if !$unpacked;
# If no more unpacked tags, remove the packed tags
if ( !$unpacked ) {
$self->update({ extraHeadTagsPacked => $unpacked });
return;
}
my $packed = $unpacked;
HTML::Packer::minify( \$packed, {
remove_newlines => 1,