Index: trunk/Nebulous/bin/neb-xattr
===================================================================
--- trunk/Nebulous/bin/neb-xattr	(revision 17764)
+++ trunk/Nebulous/bin/neb-xattr	(revision 17766)
@@ -3,5 +3,5 @@
 # Copyright (C) 2008  Joshua Hoblitt
 #
-# $Id: neb-xattr,v 1.2 2008-05-22 01:38:59 jhoblitt Exp $
+# $Id: neb-xattr,v 1.3 2008-05-22 01:45:08 jhoblitt Exp $
 
 use strict;
@@ -48,12 +48,12 @@
 }
 
-# key with xattr.value pair and -w flag means write/overwrite xattr.value
+# key with xattr:value pair and -w flag means write/overwrite xattr:value
 if (defined $write) {
-    die "--write requires a list of name.value pairs" unless scalar @ARGV;
+    die "--write requires a list of xattr:value pairs" unless scalar @ARGV;
     write_xattrs($key, @ARGV);
     exit(0);
 }
 
-# key without xattr name list means print all xattr.value pairs
+# key without xattr name list means print all xattr:value pairs
 if (not scalar @ARGV) {
     print_all_xattrs($key);
@@ -61,5 +61,5 @@
 }
 
-# key with xattr name list means print the xattr.value pairs
+# key with xattr name list means print the xattr:value pairs
 print_xattrs($key, @ARGV);
 exit(0);
@@ -89,8 +89,8 @@
     foreach my $arg (@xattr_names) {
         my ($name, $value) = parse_xattr_pair($arg);
-        die "can not process $arg because it is in name.value form"
+        die "can not process $arg because it is in name:value form"
             if defined $value;
         $value = $neb->getxattr($key, $name) or die $neb->err;
-        print "$name.$value\n";
+        print "$name:$value\n";
     }
 
@@ -108,5 +108,5 @@
     foreach my $arg (@xattr_pairs) {
         my ($name, $value) = parse_xattr_pair($arg);
-        die "can not process $arg because it is not in name.value form"
+        die "can not process $arg because it is not in name:value form"
             unless defined $name and defined $value;
         $neb->setxattr($key, $name, $value, "replace")
@@ -127,5 +127,5 @@
     foreach my $arg (@xattr_names) {
         my ($name, $value) = parse_xattr_pair($arg);
-        die "can not process $arg because it is in name.value form"
+        die "can not process $arg because it is in name:value form"
             if defined $value;
         $neb->removexattr($key, $name)
@@ -144,5 +144,5 @@
 
     no warnings qw( uninitialized );
-    my ($name, $value) = split(/\./, $pair);
+    my ($name, $value) = split(/:/, $pair);
     use warnings;