qpid-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mcpie...@apache.org
Subject svn commit: r1602412 - /qpid/proton/trunk/examples/messenger/perl/recv.pl
Date Fri, 13 Jun 2014 12:39:57 GMT
Author: mcpierce
Date: Fri Jun 13 12:39:56 2014
New Revision: 1602412

URL: http://svn.apache.org/r1602412
Log:
PROTON-607: Perl recv only shows subject if received

Put a guard in place to only display the subject line if the message has
a subject.

Modified:
    qpid/proton/trunk/examples/messenger/perl/recv.pl

Modified: qpid/proton/trunk/examples/messenger/perl/recv.pl
URL: http://svn.apache.org/viewvc/qpid/proton/trunk/examples/messenger/perl/recv.pl?rev=1602412&r1=1602411&r2=1602412&view=diff
==============================================================================
--- qpid/proton/trunk/examples/messenger/perl/recv.pl (original)
+++ qpid/proton/trunk/examples/messenger/perl/recv.pl Fri Jun 13 12:39:56 2014
@@ -52,7 +52,7 @@ for(;;)
         $messenger->get($msg);
 
         print "Address: " . $msg->get_address() . "\n";
-        print "Subject: " . $msg->get_subject() . "\n";
+        print "Subject: " . $msg->get_subject() . "\n" unless !defined($msg->get_subject());
         print "Body:    ";
 
         my $body = $msg->get_body();



---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org


Mime
View raw message