ds: avoid ->method dispatch for `print'

`->method' dispatches have always been slower than directly
invoking Perl ops without `->', so favor the latter.

diff --git a/lib/PublicInbox/DS.pm b/lib/PublicInbox/DS.pm
index 38b3635152bc2430a98b7e5d4580297a990014e9..901e762b96f2475ac0b06e2bcb612bb86306b54b 100644 (file)
--- a/lib/PublicInbox/DS.pm
+++ b/lib/PublicInbox/DS.pm
@@ -511,7 +511,7 @@ sub write {
                        my $tmpio = $wbuf->[-1];
                        if (ref($tmpio) eq 'ARRAY' && !defined($tmpio->[2])) {
                                # append to tmp file buffer
-                               $tmpio->[0]->print($$bref) or
+                               print { $tmpio->[0] } $$bref or
                                        return drop($self, "print: $!");
                        } else {
                                $tmpio = tmpio $self, $bref, 0 or return 0;