avoid "insecure rcfile" warning from test

diff --git a/Changes b/Changes
index df3846c..eb94e8c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,8 @@ Changes for Devel-Declare
 
   - Fix workaround for unexported core symbols to avoid breaking
     compilation on non-threading builds of Perl 5.8.
+  - Set permissions on .perldb file created during test, to avoid
+    "insecure rcfile" warning.
 
 0.006009 - 01 Feb 2012
   - Be adaptive about whether to delete the line reallocation filter,

diff --git a/t/debug.t b/t/debug.t
index 9373421..543f463 100644 (file)
--- a/t/debug.t
+++ b/t/debug.t
@@ -17,6 +17,7 @@ $ENV{DD_DEBUG} = 1;
 cwd("$Bin/..");
 
 # Write a .perldb file so we make sure we dont use the users one
+umask 077;
 open PERLDB, ">", "$Bin/../.perldb" or die "Cannot open $Bin/../.perldb: $!";
 close PERLDB;