Changeset 18015

Timestamp:

Jun 9, 2008, 10:08:46 AM (18 years ago)

Author:

jhoblitt

Message:

variable rename for clarity

File:

• trunk/Nebulous/bin/neb-stat (modified) (2 diffs)

trunk/Nebulous/bin/neb-stat

@@ -3 +3 @@
 # Copyright (C) 2007-2008  Joshua Hoblitt
 #
-# $Id: neb-stat,v 1.1 2008-01-28 20:43:02 jhoblitt Exp $
+# $Id: neb-stat,v 1.2 2008-06-09 20:08:46 jhoblitt Exp $
 
 use strict;
@@ -39 +39 @@
     unless defined $neb;
 
-my $keys = $neb->stat($key);
+my $stat = $neb->stat($key);
+die "nebulous key: $key not found" unless $stat;   
 my $instances = $neb->find_instances($key);
+die "no instances found" unless $instances;   
 
 no warnings qw(uninitialized);
 print
-    "object id:     ", @$keys[0], "\n",
-    "key:           ", @$keys[1], "\n",
-    "read lock:     ", @$keys[2], "\n",
-    "write lock:    ", @$keys[3], "\n",
-    "epoch:         ", @$keys[4], "\n",
-    "mtime:         ", @$keys[5], "\n",
-    "n instances:   ", @$keys[6], "\n",
+    "object id:     ", @$stat[0], "\n",
+    "key:           ", @$stat[1], "\n",
+    "read lock:     ", @$stat[2], "\n",
+    "write lock:    ", @$stat[3], "\n",
+    "epoch:         ", @$stat[4], "\n",
+    "mtime:         ", @$stat[5], "\n",
+    "n instances:   ", @$stat[6], "\n",
     "instance location:\n", " " x 4,
     join("\n" . " " x 4, @$instances), "\n";