Attachment 908269 Details for Bug 1096951 – Patch that fixes the -h issue and exits when help is shown.

[patch] Patch that fixes the -h issue and exits when help is shown.

0001-PROTON-604-Fixed-help-message-for-Perl-send-example.patch (text/plain), 1.30 KB, created by Darryl L. Pierce on 2014-06-12 19:39:42 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Darryl L. Pierce

Created: 2014-06-12 19:39:42 UTC

Size: 1.30 KB

patch

obsolete

>From 9774dc2cca5f10eba1b5e10490d34f7f227fb1e8 Mon Sep 17 00:00:00 2001
>From: mcpierce <mcpierce@13f79535-47bb-0310-9956-ffa450edef68>
>Date: Thu, 12 Jun 2014 19:38:03 +0000
>Subject: [PATCH] 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 <eallen@redhat.com>
>
>git-svn-id: https://svn.apache.org/repos/asf/qpid/proton/trunk@1602276 13f79535-47bb-0310-9956-ffa450edef68
>---
> examples/messenger/perl/send.pl | 7 +++++--
> 1 file changed, 5 insertions(+), 2 deletions(-)
>
>diff --git a/examples/messenger/perl/send.pl b/examples/messenger/perl/send.pl
>index 9d907d6..067719d 100755
>--- a/examples/messenger/perl/send.pl
>+++ b/examples/messenger/perl/send.pl
>@@ -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);
>-- 
>1.9.3
>

Actions: View | Diff

Attachments on bug 1096951: 894867 | 908269