release large (non ref) scalars using `undef $sv'

[public-inbox.git] / lib / PublicInbox / ViewDiff.pm

diff --git a/lib/PublicInbox/ViewDiff.pm b/lib/PublicInbox/ViewDiff.pm
index f7422712aa4516818a22183a0630f729bb1b2f0a..3d6058a93b5b528e83aa2e8b83b53c50e05043dc 100644 (file)
--- a/lib/PublicInbox/ViewDiff.pm
+++ b/lib/PublicInbox/ViewDiff.pm
@@ -192,7 +192,7 @@ sub flush_diff ($$) {
        my ($ctx, $cur) = @_;
 
        my @top = split($EXTRACT_DIFFS, $$cur);
-       $$cur = undef;
+       undef $$cur; # free memory
 
        my $linkify = $ctx->{-linkify};
        my $dst = $ctx->{obuf};