From 53865e65cb41d7a0f437847dd1c5d775c70ebc91 Mon Sep 17 00:00:00 2001
From: Kousuke Saruta <sarutak@apache.org>
Date: Thu, 21 Sep 2023 15:23:34 +0900
Subject: [PATCH] Minor: [Perl][Test] Suppress warning in interop-data-test for
 Perl SDK (#2511)

---
 lang/perl/xt/interop.t | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lang/perl/xt/interop.t b/lang/perl/xt/interop.t
index 8bc2a84861f..81cd48666e9 100644
--- a/lang/perl/xt/interop.t
+++ b/lang/perl/xt/interop.t
@@ -21,8 +21,11 @@ use warnings;
 use Test::More;
 use File::Basename qw(basename);
 use IO::File;
-use_ok 'Avro::DataFile';
-use_ok 'Avro::DataFileReader';
+
+BEGIN {
+    use_ok 'Avro::DataFile';
+    use_ok 'Avro::DataFileReader';
+}
 
 for my $path (glob '../../build/interop/data/*.avro') {
     my $fn = basename($path);