diff options
author | Eric Wong <e@yhbt.net> | 2020-03-19 03:32:54 -0500 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-03-20 18:23:09 +0000 |
commit | a7c58d0ce022671c9170401054a1131b9ec15bfa (patch) | |
tree | d91a79e28ae215f76f543b78d259dd8ff5dd3478 /lib/PublicInbox/ViewDiff.pm | |
parent | 8fb8fc52420ef669c5b9c583d32647e9fbdffd88 (diff) | |
download | public-inbox-a7c58d0ce022671c9170401054a1131b9ec15bfa.tar.gz |
We want WWW->preload to get as many immortal allocations done as possible, and the `state' feature from Perl 5.10 prevents that.
Diffstat (limited to 'lib/PublicInbox/ViewDiff.pm')
-rw-r--r-- | lib/PublicInbox/ViewDiff.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/PublicInbox/ViewDiff.pm b/lib/PublicInbox/ViewDiff.pm index 0f5c0e4e..57a1b5d6 100644 --- a/lib/PublicInbox/ViewDiff.pm +++ b/lib/PublicInbox/ViewDiff.pm @@ -20,6 +20,9 @@ sub UNSAFE () { "^A-Za-z0-9\-\._~/" } my $OID_NULL = '0{7,40}'; my $OID_BLOB = '[a-f0-9]{7,40}'; +my $LF = qr!\n!; +my $ANY = qr![^\n]!; +my $FN = qr!(?:"?[^/\n]+/[^\n]+|/dev/null)!; # cf. git diff.c :: get_compact_summary my $DIFFSTAT_COMMENT = qr/\((?:new|gone|(?:(?:new|mode) [\+\-][lx]))\)/; @@ -170,9 +173,6 @@ sub diff_before_or_after ($$$) { # callers must do CRLF => LF conversion before calling this sub flush_diff ($$$) { my ($dst, $ctx, $cur) = @_; - state $LF = qr!\n!; - state $ANY = qr![^\n]!; - state $FN = qr!(?:"?[^/\n]+/[^\n]+|/dev/null)!; my @top = split(/( (?: # begin header stuff, don't capture filenames, here, |