work around perl warning

master
Joey Hess 2008-03-21 05:08:04 -04:00
parent 42b6a6178c
commit 14b3e645a8
1 changed files with 1 additions and 1 deletions

View File

@ -59,7 +59,7 @@ sub format (@) { #{{{
# Fill in the inline content generated earlier. This is actually an # Fill in the inline content generated earlier. This is actually an
# optimisation. # optimisation.
$params{content}=~s{<div class="inline" id="([^"]+)"></div>}{ $params{content}=~s{<div class="inline" id="([^"]+)"></div>}{
delete @inline[$1] delete @inline[$1,]
}eg; }eg;
return $params{content}; return $params{content};
} #}}} } #}}}