[QPID-4857] Perl TypeError on message release/reject

• Type: Bug
• Status: Closed
• Priority: Major
• Resolution: Fixed
• Affects Version/s: 0.22
• Fix Version/s: 0.23
• Component/s: Perl Client
• Assignee: Darryl Pierce
• Reporter: Darryl Pierce
• Created: 17/May/13 12:24
• Updated: 08/Sep/13 13:37
• Resolved: 22/May/13 18:05

Description

When user tries to release/reject the acquired message, following error occurs:
TypeError in method 'Session_release', argument 2 of type 'qpid::messaging::Message &'

Version-Release number of selected component (if applicable):
perl-qpid-0.22-4

How reproducible:
100%

Steps to Reproduce:
1. see additional info

Actual results:
Unable to release/reject message

Expected results:
Acquired message may be released/rejected

Additional info:

Reproducer:

1. release message

#!/usr/bin/env perl

use qpid;

my $message = new qpid::messaging::Message();
my $address = "q;

{create:sender,delete:receiver}

";

my $connection = new qpid::messaging::Connection("127.0.0.1");
$connection->open();
my $session = $connection->create_session();
my $sender = $session->create_sender($address);
my $receiver = $session->create_receiver($address);
$sender->send($message);
eval

{ $message = $receiver->fetch(0); }

;
$session->release($message);
$session->reject($message);
$receiver->close();
$session->close();
$connection->close();

2. reject message

same as above with following modification:

• $session->release($message);
  + $session->reject($message);