THRIFT-4069: perl library cleanup - namespaces, versioning, exception fixes
Client: perl
This closes #1220
diff --git a/lib/perl/test/processor.t b/lib/perl/test/processor.t
index 1d8be73..f833035 100644
--- a/lib/perl/test/processor.t
+++ b/lib/perl/test/processor.t
@@ -22,9 +22,9 @@
use strict;
use warnings;
-use Thrift;
use Thrift::BinaryProtocol;
use Thrift::MemoryBuffer;
+use Thrift::MessageType;
use ThriftTest::ThriftTest;
use ThriftTest::Types;
@@ -72,7 +72,7 @@
$protocol->readMessageBegin(\$function_name, \$message_type, \$sequence_id);
print " $function_name, $message_type, $sequence_id\n";
- if ($message_type == TMessageType::EXCEPTION) {
+ if ($message_type == Thrift::TMessageType::EXCEPTION) {
die;
}