This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak gdbm.t to use GDBM_WRITER instead of GDBM_WRCREAT when re-opening a file.
authorNicholas Clark <nick@ccl4.org>
Thu, 16 Dec 2010 14:47:27 +0000 (15:47 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 16 Dec 2010 14:47:27 +0000 (15:47 +0100)
The analagous tests for [nos]dbm.t don't use |O_CREAT for this case. gdbm.t
has been using GDBM_WRCREAT here since the file was added by Larry in 5.000

ext/GDBM_File/t/gdbm.t

index 5cdedcc..12e380d 100644 (file)
@@ -60,7 +60,7 @@ $h{'goner2'} = 'snork';
 delete $h{'goner2'};
 
 untie(%h);
-isa_ok(tie(%h, 'GDBM_File', 'Op.dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');
+isa_ok(tie(%h, 'GDBM_File', 'Op.dbmx', GDBM_WRITER, 0640), 'GDBM_File');
 
 $h{'j'} = 'J';
 $h{'k'} = 'K';