[svn:parrot] r8783 - in trunk: config/auto dynclasses

[bernhard]

Author: bernhard
Date: Wed Aug  3 09:47:02 2005
New Revision: 8783

Modified:
   trunk/config/auto/gdbm.pl
   trunk/dynclasses/gdbmhash.pmc
Log:
Look for 'gdbm3' under WIN32.

Thanks to François Perrad [perl #36778]


Modified: trunk/config/auto/gdbm.pl
==============================================================================
--- trunk/config/auto/gdbm.pl   (original)
+++ trunk/config/auto/gdbm.pl   Wed Aug  3 09:47:02 2005
@@ -18,9 +18,9 @@ use strict;
 use vars qw($description @args);
 use Parrot::Configure::Step ':auto';
 
-$description="Determining if your platform supports gdbm...";
+$description = "Determining if your platform supports gdbm...";
 
[EMAIL PROTECTED](verbose);
[EMAIL PROTECTED] = qw(verbose);
 
 sub runstep {
     my ($verbose) = @_;

Modified: trunk/dynclasses/gdbmhash.pmc
==============================================================================
--- trunk/dynclasses/gdbmhash.pmc       (original)
+++ trunk/dynclasses/gdbmhash.pmc       Wed Aug  3 09:47:02 2005
@@ -82,7 +82,11 @@ Class initialization. Allocates the memo
 
     void class_init() {
         /* XXX: Name of the lib should be configurable */
+#ifdef WIN32
+        STRING *slib = string_from_cstring(INTERP, "gdbm3", 0);
+#else
         STRING *slib = string_from_cstring(INTERP, "libgdbm", 0);
+#endif
 
         /* XXX: What if libgdbm.so cannot be loaded */
         Parrot_load_lib(INTERP, slib, NULL);