From: Zefram <zefram@fysh.org>
Date: Tue, 7 Feb 2012 13:56:56 +0000 (+0000)
Subject: avoid "insecure rcfile" warning from test
X-Git-Tag: 0.006010~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=commitdiff_plain;h=e4e34af38add6c3a8a05470f358ddd7cec9a287b;hp=1479b0b1d8ae6404db89395beb373cce9cbb4834

avoid "insecure rcfile" warning from test
---

diff --git a/Changes b/Changes
index df3846c..eb94e8c 100644
--- 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
--- 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;