This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
incfilter.t: squelch warning
[perl5.git] / t / op / incfilter.t
index 767aa12..c690970 100644 (file)
@@ -241,7 +241,7 @@ is $origlines[0], "1\n+\n2\n", 'ink filters do not mangle cow buffers';
 do \&generator or die;
 like ${$::{the_array}}, qr/^ARRAY\(0x.*\)\z/,
    'setting $_ to ref in inc filter';
-@lines = ('$::the_array = "', *foo, '"');
+@lines = ('$::the_array = "', do { no warnings 'once'; *foo}, '"');
 do \&generator or die;
 is ${$::{the_array}}, "*main::foo", 'setting $_ to glob in inc filter';