FAQ
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/6c0d35ff1e3d608716c812fc4ba0474d9041e7bf?hp=cd3ae2edad0b39687eaf15efbfbf9cbc76a091a7>

- Log -----------------------------------------------------------------
commit 6c0d35ff1e3d608716c812fc4ba0474d9041e7bf
Author: Nicholas Clark <nick@ccl4.org>
Date: Tue Mar 17 15:25:02 2015 +0100

     dbmopen() with a third argument of undef can create files on disk.

     Hence we need to ensure that they are cleaned up.
-----------------------------------------------------------------------

Summary of changes:
  t/op/dbm.t | 7 ++++++-
  1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/t/op/dbm.t b/t/op/dbm.t
index abcc629..6c51dad 100644
--- a/t/op/dbm.t
+++ b/t/op/dbm.t
@@ -62,6 +62,11 @@ fresh_perl_like('delete $::{"AnyDBM_File::"}; ' . $prog,
  { # undef 3rd arg
      local $^W = 1;
      local $SIG{__WARN__} = sub { ++$w };
- dbmopen(%truffe, 'pleaseletthisfilenotexist', undef);
+ # Files may get created as a side effect of dbmopen, so ensure cleanup.
+ my $leaf = 'pleaseletthisfilenotexist';
+ dbmopen(%truffe, $leaf, undef);
      is $w, 1, '1 warning from dbmopen with undef third arg';
+ unlink $leaf
+ if -e $leaf;
+ 1 while unlink glob "$leaf.*";
  }

--
Perl5 Master Repository

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 1 of 1 | next ›
Discussion Overview
groupperl5-changes @
categoriesperl
postedMar 19, '15 at 3:32p
activeMar 19, '15 at 3:32p
posts1
users1
websiteperl.org

1 user in discussion

Nicholas Clark: 1 post

People

Translate

site design / logo © 2017 Grokbase