[avro] branch master updated: Minor: [Perl][Test] Suppress warning in interop-data-test for Perl SDK (#2511)

[mgrigorov]

This is an automated email from the ASF dual-hosted git repository.

mgrigorov pushed a commit to branch master
in repository https://gitbox.apache.org/repos/asf/avro.git


The following commit(s) were added to refs/heads/master by this push:
     new 53865e65c Minor: [Perl][Test] Suppress warning in interop-data-test 
for Perl SDK (#2511)
53865e65c is described below

commit 53865e65cb41d7a0f437847dd1c5d775c70ebc91
Author: Kousuke Saruta <saru...@apache.org>
AuthorDate: Thu Sep 21 15:23:34 2023 +0900

    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 8bc2a8486..81cd48666 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);