Author: mcpierce Date: Thu Jun 12 19:38:03 2014 New Revision: 1602276 URL: http://svn.apache.org/r1602276 Log: PROTON-604: Fixed help message for Perl send example.
Modified the patch slightly to not attempt to perform a connection if help was displayed. Contributed by Ernie Allen <[email protected]> Modified: qpid/proton/trunk/examples/messenger/perl/send.pl Modified: qpid/proton/trunk/examples/messenger/perl/send.pl URL: http://svn.apache.org/viewvc/qpid/proton/trunk/examples/messenger/perl/send.pl?rev=1602276&r1=1602275&r2=1602276&view=diff ============================================================================== --- qpid/proton/trunk/examples/messenger/perl/send.pl (original) +++ qpid/proton/trunk/examples/messenger/perl/send.pl Thu Jun 12 19:38:03 2014 @@ -34,11 +34,14 @@ sub HELP_MESSAGE() { print "Options:\n"; print "\t-s - the message subject\n"; print "\t-C - the message content\n"; - print "\t<ADDRESS> - amqp://<domain>[/<name>]"; + print "\t<ADDRESS> - amqp://<domain>[/<name>]\n"; + print "\t-h - this message\n"; + + exit; } my %options = (); -getopts("a:C:s:", \%options) or usage(); +getopts("a:C:s:h:", \%options) or HELP_MESSAGE(); my $address = $options{a} || "amqp://0.0.0.0"; my $subject = $options{s} || localtime(time); --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
