This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
heredoc.t: Suppress deprecation warnings
authorFather Chrysostomos <sprout@cpan.org>
Mon, 20 Aug 2012 05:41:08 +0000 (22:41 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 21 Aug 2012 21:11:00 +0000 (14:11 -0700)
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"
     );