diff --git a/lib/perl/lib/Thrift/FramedTransport.pm b/lib/perl/lib/Thrift/FramedTransport.pm
index b78b198..e8e85dc 100644
--- a/lib/perl/lib/Thrift/FramedTransport.pm
+++ b/lib/perl/lib/Thrift/FramedTransport.pm
@@ -68,7 +68,9 @@
 {
     my $self = shift;
 
-    $self->{transport}->close();
+    if (defined $self->{transport}) {
+      $self->{transport}->close();
+    }
 }
 
 #