Switch most open() calls to three-argument form.

[perl5.git] / lib / perl5db.t

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 0c4fc42..e216685 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -2769,7 +2769,7 @@ SKIP:
     );
 
     $wrapper->output_like(
-        qr/No manual entry for perlrules/,
+        qr/No (?:manual )?entry for perlrules/,
         'perldoc command works fine',
     );
 }