--- AnyEvent-FCP/FCP.pm	2016/06/15 11:18:25	1.27
+++ AnyEvent-FCP/FCP.pm	2021/09/09 00:49:06	1.28
@@ -267,13 +267,13 @@
 sub fatal {
    my ($self, $msg) = @_;
 
-   $self->{hdl}->shutdown;
+   $self->{hdl}->push_shutdown if $self->{hdl};
    delete $self->{kw};
    
    if ($self->{on_error}) {
       $self->{on_error}->($self, $msg);
    } else {
-      die $msg;
+      die "AnyEvent::FCP($self->{host}:$self->{port}): $msg";
    }
 }
 
@@ -294,12 +294,6 @@
    my $msg = (touc $type) . "\012"
              . join "", map +(touc $_) . "=$kv{$_}\012", keys %kv;
 
-      sub id {
-         my ($self) = @_;
-
-
-      }
-
    if (defined $data) {
       $msg .= "DataLength=" . (length $data) . "\012"
             . "Data\012$data";