cvs commit: apache-1.3/src/support dbmmanage

[ben]

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;