use "\&" where possible when referring to subroutines

[public-inbox.git] / t / replace.t

diff --git a/t/replace.t b/t/replace.t
index a1e2d63b6f8932aad5643473d833a787ff93f965..95241adf6842282eae8b4ce805d42b79ec8c5c02 100644 (file)
--- a/t/replace.t
+++ b/t/replace.t
@@ -179,10 +179,10 @@ EOF
        }
 }
 
-my $opt = { pre => *pad_msgs };
+my $opt = { pre => \&pad_msgs };
 test_replace(2, 'basic', {});
 test_replace(2, 'basic', $opt);
-test_replace(2, 'basic', $opt = { %$opt, post => *pad_msgs });
+test_replace(2, 'basic', $opt = { %$opt, post => \&pad_msgs });
 test_replace(2, 'basic', $opt = { %$opt, rotate_bytes => 1 });
 
 SKIP: {
@@ -190,9 +190,9 @@ SKIP: {
        PublicInbox::Search::load_xapian() or skip 'Search::Xapian missing', 8;
        for my $l (qw(medium)) {
                test_replace(2, $l, {});
-               $opt = { pre => *pad_msgs };
+               $opt = { pre => \&pad_msgs };
                test_replace(2, $l, $opt);
-               test_replace(2, $l, $opt = { %$opt, post => *pad_msgs });
+               test_replace(2, $l, $opt = { %$opt, post => \&pad_msgs });
                test_replace(2, $l, $opt = { %$opt, rotate_bytes => 1 });
        }
 };