--- cvsroot/Net-FCP/FCP.pm	2003/09/10 05:07:16	1.14
+++ cvsroot/Net-FCP/FCP.pm	2003/09/10 05:20:48	1.16
@@ -47,7 +47,7 @@
 
 use Carp;
 
-$VERSION = 0.06;
+$VERSION = 0.07;
 
 no warnings;
 
@@ -127,7 +127,7 @@
 
             $hdr->{$p[0]}               = $v if @p == 1; # lamest code I ever wrote
             $hdr->{$p[0]}{$p[1]}        = $v if @p == 2;
-            $hdr->{$p[0]}{$p[1]}{$p[3]} = $v if @p == 3;
+            $hdr->{$p[0]}{$p[1]}{$p[2]} = $v if @p == 3;
             die "FATAL: 4+ dot metadata"     if @p >= 4;
          }
 
@@ -559,7 +559,7 @@
 # used as a default exception thrower
 sub rcv_throw_exception {
    my ($self, $attr, $type) = @_;
-   $self->throw (new Net::FCP::Exception $type, $attr);
+   $self->throw (Net::FCP::Exception->new ($type, $attr));
 }
 
 *rcv_failed       = \&Net::FCP::Txn::rcv_throw_exception;