THRIFT-1082: Thrift::FramedTransport sometimes calls close() on an undefined value
Client: perl
Patch: John Siracusa

Fixes Thrift::FramedTransport module sometimes ends up calling the close() method on an undefined value inside its own close()


git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1391418 13f79535-47bb-0310-9956-ffa450edef68
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();
+    }
 }
 
 #