debugger test could hang if run with umask 0002

p4raw-id: //depot/perl@29275

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 8735e87..5323f79 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -22,6 +22,9 @@ sub rc {
     open RC, ">", ".perldb" or die $!;
     print RC @_;
     close(RC);
+    # overly permissive perms gives "Must not source insecure rcfile"
+    # and hangs at the DB(1> prompt
+    chmod 0644, ".perldb";
 }
 
 rc(