Missing tie() call in NDBM_File SYNOPSIS

Message-Id: <28baf339c3b78cc40017066b9dc7cffb@sergeant.org>

p4raw-id: //depot/perl@25145

diff --git a/ext/NDBM_File/NDBM_File.pm b/ext/NDBM_File/NDBM_File.pm
index a52f7ef..a952af2 100644 (file)
--- 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.