Changeset 31850 for trunk/Nebulous

Timestamp:

Jul 8, 2011, 6:07:31 PM (15 years ago)

Author:

watersc1

Message:

Attempt to force NFS to stop lying to us on neb-replicate calls. Silence glockfile from printing status statement.

File:

• trunk/Nebulous/lib/Nebulous/Client.pm (modified) (1 diff)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -262 +262 @@
     $log->debug( "copied instance" );
 
+    # Force a flush to disk
+    {
+        my $disk_file_name = $uri->path;
+#       print ">> $disk_file_name <<\n";
+        system("glockfile $disk_file_name xcld 0");
+        unless (($? >> 8) == 0) {
+            $log->logdie( "can not create a lock on $key at $uri" );
+        }
+    }
     close( $fh ) or $log->logdie( "can not close $key" );
     close( $new_fh ) or $log->logdie( "can not close $key" );