ben 98/09/26 07:47:50
Modified: src/support dbmmanage
Log:
Make read-only commands work. Maybe improve diagnostics.
Revision Changes Path
1.12 +2 -2 apache-1.3/src/support/dbmmanage
Index: dbmmanage
===================================================================
RCS file: /export/home/cvs/apache-1.3/src/support/dbmmanage,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- dbmmanage 1998/05/18 11:24:21 1.11
+++ dbmmanage 1998/09/26 14:47:49 1.12
@@ -89,9 +89,9 @@
my %DB = ();
my @range = ();
my($mode, $flags) = $command =~
- /^(?:view|check)$/ ? (undef, O_RDONLY) : (0644, O_RDWR|O_CREAT);
+ /^(?:view|check)$/ ? (0644, O_RDONLY) : (0644, O_RDWR|O_CREAT);
-tie %DB, "AnyDBM_File", $file, $flags, $mode;
+tie %DB, "AnyDBM_File", $file, $flags, $mode || die "Can't tie $file: $!";
dbmc->$command();
untie %DB;
|