Changeset 4638 for trunk/Nebulous/lib

Timestamp:

Jul 27, 2005, 5:48:41 PM (21 years ago)

Author:

jhoblitt

Message:

->open( $foo, 'write') is not allowed when object has multiple instances

File:

• trunk/Nebulous/lib/Nebulous/Client.pm (modified) (3 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.17 2005-07-28 01:40:26 jhoblitt Exp $
+# $Id: Client.pm,v 1.18 2005-07-28 03:48:41 jhoblitt Exp $
 
 package Nebulous::Client;
@@ -161 +161 @@
     }
 
-    my $fh  = $self->open( $key, 'write' );
+    my $fh  = $self->open( $key, 'read' );
     unless ( $fh ) {
         $log->debug( "can't open $key" );
@@ -435 +435 @@
 
     if ( $type eq 'write' ) {
+        my $num_instances = scalar @$locations;
+
+        if ( $num_instances > 1 ) {
+            $log->warn( "write not allowed with multiple instances" );
+            $log->debug( "leaving" );
+            return undef;
+        }
+
         eval {
             $fh = _get_filehandle( $path, '+<' );