This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
heredoc.t: Suppress deprecation warnings
[perl5.git] / t / op / heredoc.t
index b1ab684..7108c9a 100644 (file)
@@ -36,7 +36,7 @@ HEREDOC
     fresh_perl_is(
         "print <<;\n$string\n",
         $string,
-        {},
+        { switches => ['-X'] },
         "blank-terminated heredoc at EOF"
     );
 }
@@ -54,7 +54,7 @@ HEREDOC
     fresh_perl_like(
         "print <<;\nno more newlines",
         qr/find string terminator/,
-        {},
+        { switches => ['-X'] },
         "empty string terminator still needs a newline"
     );