Index: trunk/Nebulous-Server/Changes
===================================================================
--- trunk/Nebulous-Server/Changes	(revision 17546)
+++ trunk/Nebulous-Server/Changes	(revision 17620)
@@ -2,4 +2,5 @@
 
 0.10
+    - change listxattr_object() to return an arrayref
     - change default log level to 'WARN'
     - fix _is_valid_object_key() to handle nebulous keys
Index: trunk/Nebulous-Server/lib/Nebulous/Server.pm
===================================================================
--- trunk/Nebulous-Server/lib/Nebulous/Server.pm	(revision 17546)
+++ trunk/Nebulous-Server/lib/Nebulous/Server.pm	(revision 17620)
@@ -1,5 +1,5 @@
 # Copyright (c) 2004-2008  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.65 2008-05-06 23:07:27 jhoblitt Exp $
+# $Id: Server.pm,v 1.66 2008-05-10 01:15:13 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -794,5 +794,5 @@
     $log->debug("leaving");
 
-    return @xattrs;
+    return \@xattrs;
 }
 
Index: trunk/Nebulous-Server/t/14_server_xattr.t
===================================================================
--- trunk/Nebulous-Server/t/14_server_xattr.t	(revision 17546)
+++ trunk/Nebulous-Server/t/14_server_xattr.t	(revision 17620)
@@ -3,5 +3,5 @@
 # Copryight (C) 2007  Joshua Hoblitt
 #
-# $Id: 14_server_xattr.t,v 1.4 2008-03-20 21:10:14 jhoblitt Exp $
+# $Id: 14_server_xattr.t,v 1.5 2008-05-10 01:11:58 jhoblitt Exp $
 
 use strict;
@@ -30,7 +30,7 @@
     ok($neb->setxattr_object('foo', 'bar', 'baz', 'create'), 'set object xattr');
     {
-        my @xattrs = $neb->listxattr_object('foo');
+        my $xattrs = $neb->listxattr_object('foo');
         is(scalar @xattrs, 1, 'number of xattrs');
-        is($xattrs[0], 'bar', 'xattr name');
+        is(@$xattrs[0], 'bar', 'xattr name');
     }
 
@@ -40,6 +40,6 @@
     ok($neb->removexattr_object('foo', 'bar'), "remove object xattr");
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 0, 'number of xattrs');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 0, 'number of xattrs');
     }
 }
@@ -56,8 +56,8 @@
     
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 2, 'number of xattrs');
-        is($xattrs[0], 'bar', 'xattr name');
-        is($xattrs[1], 'bonk', 'xattr name');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 2, 'number of xattrs');
+        is(@$xattrs[0], 'bar', 'xattr name');
+        is(@$xattrs[1], 'bonk', 'xattr name');
     }
 
@@ -70,6 +70,6 @@
     ok($neb->removexattr_object('foo', 'bonk'), "remove object xattr");
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 0, 'number of xattrs');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 0, 'number of xattrs');
     }
 }
@@ -86,7 +86,7 @@
     
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 1, 'number of xattrs');
-        is($xattrs[0], 'bar', 'xattr name');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 1, 'number of xattrs');
+        is(@$xattrs[0], 'bar', 'xattr name');
     }
 
@@ -96,6 +96,6 @@
     ok($neb->removexattr_object('foo', 'bar'), "remove object xattr");
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 0, 'number of xattrs');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 0, 'number of xattrs');
     }
 }