v2writable: don't attempt to print defrag progress w/o -v

Otherwise we'd crash when attempting to use `undef' as a
subroutine reference :x

diff --git a/lib/PublicInbox/V2Writable.pm b/lib/PublicInbox/V2Writable.pm
index bd5d9d320a72d53fa1c69d7f3aa823f764a54a92..aea215cff0e626ccd6011f2ef6d949a59308cc46 100644 (file)
--- a/lib/PublicInbox/V2Writable.pm
+++ b/lib/PublicInbox/V2Writable.pm
@@ -531,7 +531,7 @@ sub do_defrag ($) {
                $pr->('defrag took ',
                        sprintf('%ums', now - $t0),
                        ", next defrag: >=#$self->{defrag_at} ",
-                       "(cur: $self->{oidx}->{-art_max})\n");
+                       "(cur: $self->{oidx}->{-art_max})\n") if $pr;
        } else { # defrag not supported (or needed, maybe)
                delete $self->{defrag_at};
        }