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 <[email protected]> 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
