Hi Rob,
Given that the change looks small, I might be able to manually patch
the module. I need a context diff though. ("diff -c Myspace.pm.old
Myspace.pm" on most UNIX sytems). We really need patches submitted
against the current working copy though (the last release is of course
always behind what we have).
Grant
On Jan 17, 2008, at 1:43 PM, Rob Perelman via RT wrote:
>
> Thu Jan 17 16:42:54 2008: Request 32399 was acted upon.
> Transaction: Ticket created by rob@veerob.com
> Queue: WWW-Myspace
> Subject: Added sendername
> Broken in: (no value)
> Severity: (no value)
> Owner: Nobody
> Requestors: rob@veerob.com
> Status: new
> Ticket <URL:
http://rt.cpan.org/Ticket/Display.html?id=32399 >
>
>
> I wasn't able to use svn but I did generate a diff from the
> Myspace.pm 0.74.
> I hope this still works for you.
>
> 3568,3569d3567
> < # Updated by veeRob on 1/16/08 to document sendername
> < # Updated by veeRob on 1/17/08 to change example from inbox() to
> get_inbox()
> 3576d3573
> < sendername (friend's display name)
> 3612c3609
> < my $messages = $myspace->get_inbox;
> ---
>> my $messages = $myspace->inbox;
> 3617d3613
> < print "Sendername: " . $message->{sendername} . "\n";
> 3694d3689
> < # Updated by veeRob on 1/16/08 to save the sender's name
> 3705d3699
> < my $sendername;
> 3717c3711
> < } elsif (/viewprofile&friendid=([0-9]+)"?>([^<>]+)</ &&
> $state ==
> 1){
> ---
>> } elsif (/viewprofile&friendid=([0-9]+)/ && $state == 1){
> 3719d3712
> < $sendername = $2;
> 3727,3728c3720,3721
> < push @messages, { sender => $sender, sendername =>
> $sendername, status => $status, message_id=> $msg_id, subject =>
> $subject };
> < if ($DEBUG) { print
> $sender,"|",$sendername,"|",$status,"|",$msg_id,"|",$subject,"\n"; }
> ---
>> push @messages, { sender => $sender, status => $status,
> message_id=> $msg_id, subject => $subject };
>> if ($DEBUG) { print
> $sender,"|",$status,"|",$msg_id,"|",$subject,"\n"; }
>
> --
> Rob Perelman :: rob@veerob.com ::
http://www.veerob.com
>
> I wasn't able to use svn but I did generate a diff from the
> Myspace.pm 0.74. I hope this still works for you.
>
> 3568,3569d3567
> < # Updated by veeRob on 1/16/08 to document sendername
> < # Updated by veeRob on 1/17/08 to change example from inbox() to
> get_inbox()
> 3576d3573
> < sendername (friend's display name)
> 3612c3609
> < my $messages = $myspace->get_inbox;
> ---
> > my $messages = $myspace->inbox;
> 3617d3613
> < print "Sendername: " . $message->{sendername} . "\n";
> 3694d3689
> < # Updated by veeRob on 1/16/08 to save the sender's name
> 3705d3699
> < my $sendername;
> 3717c3711
> < } elsif (/viewprofile&friendid=([0-9]+)"?>([^<>]+)</ &&
> $state == 1){
> ---
> > } elsif (/viewprofile&friendid=([0-9]+)/ && $state == 1){
> 3719d3712
> < $sendername = $2;
> 3727,3728c3720,3721
> < push @messages, { sender => $sender, sendername =>
> $sendername, status => $status, message_id=> $msg_id, subject =>
> $subject };
> < if ($DEBUG) { print $sender,"|",$sendername,"|",
> $status,"|",$msg_id,"|",$subject,"\n"; }
> ---
> > push @messages, { sender => $sender, status =>
> $status, message_id=> $msg_id, subject => $subject };
> > if ($DEBUG) { print $sender,"|",$status,"|",
> $msg_id,"|",$subject,"\n"; }
>
> --
> Rob Perelman :: rob@veerob.com ::
http://www.veerob.com
