This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
debugger test could hang if run with umask 0002
authorDave Mitchell <davem@fdisolutions.com>
Tue, 14 Nov 2006 23:24:45 +0000 (23:24 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Tue, 14 Nov 2006 23:24:45 +0000 (23:24 +0000)
p4raw-id: //depot/perl@29275

lib/perl5db.t

index 8735e87..5323f79 100644 (file)
@@ -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(