diff options
| -rw-r--r-- | ext/NDBM_File/NDBM_File.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/ext/NDBM_File/NDBM_File.pm b/ext/NDBM_File/NDBM_File.pm index a52f7ef03b..a952af2354 100644 --- a/ext/NDBM_File/NDBM_File.pm +++ b/ext/NDBM_File/NDBM_File.pm @@ -24,9 +24,12 @@ NDBM_File - Tied access to ndbm files use Fcntl; # For O_RDWR, O_CREAT, etc. use NDBM_File; + tie(%h, 'NDBM_File', 'filename', O_RDWR|O_CREAT, 0666) + or die "Couldn't tie NDBM file 'filename': $!; aborting"; + # Now read and change the hash $h{newkey} = newvalue; - print $h{oldkey}; + print $h{oldkey}; ... untie %h; @@ -49,14 +52,14 @@ C<tie> should be: The hash variable you want to tie. -=item 2. +=item 2. The string C<"NDBM_File">. (Ths tells Perl to use the C<NDBM_File> package to perform the functions of the hash.) -=item 3. +=item 3. -The name of the file you want to tie to the hash. +The name of the file you want to tie to the hash. =item 4. |