From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 14 Nov 2006 23:24:45 +0000 (+0000)
Subject: debugger test could hang if run with umask 0002
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e5e55bd9605a684d64a1a191319fa2d90836414;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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(