From: Matt Sergeant <matt@sergeant.org>
Date: Thu, 14 Jul 2005 16:53:03 +0000 (-0400)
Subject: Missing tie() call in NDBM_File SYNOPSIS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d554b888f35e2a05ab5bbf81166b4ff89aa57070;p=p5sagit%2Fp5-mst-13.2.git

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