| Subject: | [PATCH] wrong return precedence |
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{