Skip Menu |
 

This queue is for tickets about the WebService-Hatena-Bookmark-Lite CPAN distribution.

Report information
The Basics
Id: 87210
Status: new
Priority: 0/
Queue: WebService-Hatena-Bookmark-Lite

People
Owner: Nobody in particular
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Attachments
WebService-Hatena-Bookmark-Lite-0.03-returnor.patch



Subject: [PATCH] wrong return precedence
Download (untitled) / with headers
text/plain 133b
returns binds stronger than or, so the expressions after or are ignored. See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
Subject: WebService-Hatena-Bookmark-Lite-0.03-returnor.patch
diff -bu WebService-Hatena-Bookmark-Lite-0.03-tinP6y/lib/WebService/Hatena/Bookmark/Lite.pm~ WebService-Hatena-Bookmark-Lite-0.03-tinP6y/lib/WebService/Hatena/Bookmark/Lite.pm --- WebService-Hatena-Bookmark-Lite-0.03-tinP6y/lib/WebService/Hatena/Bookmark/Lite.pm~ 2009-09-13 10:33:37.000000000 -0500 +++ WebService-Hatena-Bookmark-Lite-0.03-tinP6y/lib/WebService/Hatena/Bookmark/Lite.pm 2013-07-23 12:34:09.890336035 -0500 @@ -44,7 +44,7 @@ $entry->summary( $self->_make_summary($tag,$comment) ); return $self->client->createEntry($PostURI , $entry) - or croak $self->client->errstr; + || croak $self->client->errstr; } sub getEntry{ @@ -53,7 +53,7 @@ my $EditURI = $self->_set_edit_uri( $arg{edit_ep} ); return $self->client->getEntry( $EditURI ) - or croak $self->client->errstr; + || croak $self->client->errstr; } sub edit{ @@ -69,7 +69,7 @@ $entry->summary( $self->_make_summary($tag,$comment) ); return $self->client->updateEntry($EditURI , $entry) - or croak $self->client->errstr; + || croak $self->client->errstr; } sub delete{ @@ -78,14 +78,14 @@ my $EditURI = $self->_set_edit_uri( $arg{edit_ep} ); return $self->client->deleteEntry($EditURI ) - or croak $self->client->errstr; + || croak $self->client->errstr; } sub getFeed{ my $self = shift; return $self->client->getFeed( $FeedURI ) - or croak $self->client->errstr; + || croak $self->client->errstr; } sub entry2edit_ep{


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.