develooper Front page | perl.perl5.porters | Postings from March 2001

[PATCH 5.6.1] ext/GDBM_File GDBM_NOLOCK constant

Thread Next
From:
Paul Lindner
Date:
March 15, 2001 11:58
Subject:
[PATCH 5.6.1] ext/GDBM_File GDBM_NOLOCK constant
Message ID:
20010316112803.A7577@inuus.com
GDBM_File included in Perl 5.6 is missing a constant added in the gdbm-1.8.* 
versions: GDBM_NOLOCK

I've patched up the xs and pm to support it.  Please consider it for
the next release:


*** GDBM_File.pm.orig	Mon Mar 12 03:36:09 2001
--- GDBM_File.pm	Mon Mar 12 03:36:34 2001
***************
*** 57,65 ****
  	GDBM_REPLACE
  	GDBM_WRCREAT
  	GDBM_WRITER
  );
  
! $VERSION = "1.03";
  
  sub AUTOLOAD {
      my($constname);
--- 57,66 ----
  	GDBM_REPLACE
  	GDBM_WRCREAT
  	GDBM_WRITER
+ 	GDBM_NOLOCK
  );
  
! $VERSION = "1.04";
  
  sub AUTOLOAD {
      my($constname);



*** GDBM_File.xs.orig	Mon Mar 12 03:36:01 2001
--- GDBM_File.xs	Mon Mar 12 03:33:49 2001
***************
*** 146,151 ****
--- 146,161 ----
  #else
  	    goto not_there;
  #endif
+ 
+ 	if (strEQ(name, "GDBM_NOLOCK"))
+ #ifdef GDBM_NOLOCK
+ 	    return GDBM_NOLOCK;
+ #else
+ 	    goto not_there;
+ #endif
+ 
  	break;
      case 'H':
  	break;


-- 
Paul Lindner
lindner@inuus.com

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About