From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 16 Dec 2010 14:47:27 +0000 (+0100)
Subject: Tweak gdbm.t to use GDBM_WRITER instead of GDBM_WRCREAT when re-opening a file.
X-Git-Tag: accepted/trunk/20130322.191538~6462
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=234e7be97d3fcde19aeeb0d1a009880870e75aa5;p=platform%2Fupstream%2Fperl.git

Tweak gdbm.t to use GDBM_WRITER instead of GDBM_WRCREAT when re-opening a file.

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
---

diff --git a/ext/GDBM_File/t/gdbm.t b/ext/GDBM_File/t/gdbm.t
index 5cdedcc..12e380d 100644
--- a/ext/GDBM_File/t/gdbm.t
+++ b/ext/GDBM_File/t/gdbm.t
@@ -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';