PERFORCE change 11420 for review

[email protected] (Chris Nandor) Fri, 20 Jul 2001 15:36:49 -0400
Newsgroups perl.perl5.changes.mac
Message-ID <p05100305b77e38c708ba@[10.0.1.107]>
Change 11420 by pudge@pudge-mobile on 2001/07/20 18:02:05

	Make DB_File the default for MLDBM on MacOS.

Affected files ...

... //depot/maint-5.6/macperl/macos/bundled_lib/blib/lib/MLDBM.pm#2 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/bundled_lib/blib/lib/MLDBM.pm#2 (text) ====
Index: perl/macos/bundled_lib/blib/lib/MLDBM.pm
--- perl/macos/bundled_lib/blib/lib/MLDBM.pm.~1~	Fri Jul 20 12:15:05 2001
+++ perl/macos/bundled_lib/blib/lib/MLDBM.pm	Fri Jul 20 12:15:05 2001
@@ -92,7 +92,11 @@
 # you might want to change this default to something more efficient
 # like DB_File (you can always override it in the use list)
 #
-$MLDBM::UseDB		= "SDBM_File"		unless $MLDBM::UseDB;
+if ($^O eq 'MacOS') {
+    $MLDBM::UseDB	= "DB_File"		unless $MLDBM::UseDB;
+} else {
+    $MLDBM::UseDB	= "SDBM_File"		unless $MLDBM::UseDB;
+}
 $MLDBM::Serializer	= 'Data::Dumper'	unless $MLDBM::Serializer;
 $MLDBM::Key		= '$MlDbM'		unless $MLDBM::Key;
 $MLDBM::DumpMeth	= ""			unless $MLDBM::DumpMeth;
End of Patch.