diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-12-16 15:47:27 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-12-16 15:47:27 +0100 |
| commit | 234e7be97d3fcde19aeeb0d1a009880870e75aa5 (patch) | |
| tree | 1ec33c36f15a24bf97781e2d7519c3390e38d092 | |
| parent | 038fa339c4185f32e8a3053619b2b9cf27df2718 (diff) | |
| download | perl-234e7be97d3fcde19aeeb0d1a009880870e75aa5.tar.gz | |
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
| -rw-r--r-- | ext/GDBM_File/t/gdbm.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/GDBM_File/t/gdbm.t b/ext/GDBM_File/t/gdbm.t index 5cdedcc003..12e380dd93 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'; |