In diagnostics.t, avoid passing a literal \n in the command to run.

[perl5.git] / lib / diagnostics.t

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index c983ac6..60e01e1 100644 (file)
--- a/lib/diagnostics.t
+++ b/lib/diagnostics.t
@@ -135,8 +135,8 @@ EOW
 like runperl(
       @runperl_args,
       prog => $subs =~
-         s[panic: gremlins]
-          [Attempt to reload foo aborted.\nCompilation failed in require]r,
+         s[q _panic: gremlins_]
+          [qq _Attempt to reload foo aborted.\\nCompilation failed in require_]r,
      ),
      qr/Uncaught exception from user code:
        Attempt to reload foo aborted\.