Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
...
Checking mergeability… Don't worry, you can still create the pull request.
  • 3 commits
  • 4 files changed
  • 0 commit comments
  • 1 contributor
View
2  net/p5-Transmission-Client/Makefile
@@ -2,7 +2,7 @@
COMMENT= Perl interface to the Transmission BitTorrent client RPC
-DISTNAME= Transmission-Client-0.0602
+DISTNAME= Transmission-Client-0.0603
CATEGORIES= net
MAINTAINER= Andrew Fresh <andrew@cpan.org>
View
7 net/p5-Transmission-Client/distinfo
@@ -1,5 +1,2 @@
-MD5 (Transmission-Client-0.0602.tar.gz) = KyBuBAuX7Dkax7bDxTblpg==
-RMD160 (Transmission-Client-0.0602.tar.gz) = nE6ax0B37NxBpshGfycwD6iNNJg=
-SHA1 (Transmission-Client-0.0602.tar.gz) = uokKtmDcR0L/aqXN9hE50/T5uo8=
-SHA256 (Transmission-Client-0.0602.tar.gz) = djUE4CP6KOnwbnN5vntAeVgcYp2b5Jcc/VfyT5bc6+o=
-SIZE (Transmission-Client-0.0602.tar.gz) = 40379
+SHA256 (Transmission-Client-0.0603.tar.gz) = R35k79rxIMOi0+BQBLuLJLblUdr97Bh3OWRkE/iQ5ns=
+SIZE (Transmission-Client-0.0603.tar.gz) = 41956
View
52 net/p5-Transmission-Client/patches/patch-lib_Transmission_AttributeRole_pm
@@ -0,0 +1,52 @@
+$OpenBSD$
+--- lib/Transmission/AttributeRole.pm.orig Mon May 7 10:27:30 2012
++++ lib/Transmission/AttributeRole.pm Sat Oct 13 15:38:14 2012
+@@ -63,31 +63,38 @@ has eager_read => (
+ );
+
+ # this method name exists to prove a point - not to be readable...
+-sub _camel2Normal {
++sub _convert {
+ if(ref $_[1] eq 'HASH') {
+ for my $camel (keys %{ $_[1] }) {
+- my $key = __PACKAGE__->_camel2Normal($camel);
++ my $key = $_[2]->($camel);
+
+ if(ref $_[1]->{$camel} eq 'HASH') {
+- __PACKAGE__->_camel2Normal($_[1]->{$camel});
++ __PACKAGE__->_convert($_[1]->{$camel}, $_[2]);
+ }
+
+ $_[1]->{$key} = delete $_[1]->{$camel};
+ }
+ }
+ else {
+- local $_ = $_[1];
++ return $_[2]->($_[1]);
++ }
++}
++
++sub _camel2Normal {
++ $_[0]->_convert( $_[1], sub {
++ local $_ = $_[0];
+ tr/-/_/;
+ s/([A-Z]+)/{ "_" .lc($1) }/ge;
+ return $_;
+- }
++ } );
+ }
+-
+ sub _normal2Camel {
+- local $_ = $_[1];
+- tr/_/-/;
+- s/_(\w)/{ uc($1) }/ge; # wild guess...
+- return $_;
++ $_[0]->_convert( $_[1], sub {
++ local $_ = $_[0];
++ tr/_/-/;
++ s/_(\w)/{ uc($1) }/ge; # wild guess...
++ return $_;
++ } );
+ }
+
+ =head1 LICENSE
View
14 net/p5-Transmission-Client/patches/patch-lib_Transmission_Client_pm
@@ -0,0 +1,14 @@
+$OpenBSD$
+--- lib/Transmission/Client.pm.orig Sat Oct 13 14:44:16 2012
++++ lib/Transmission/Client.pm Sat Oct 13 15:08:07 2012
+@@ -538,6 +538,10 @@ sub rpc {
+
+ $method = $self->_normal2Camel($method);
+
++ # The keys need to be dashes as well
++ # _normal2Camel modifies a hashref in places
++ $self->_normal2Camel( \%args );
++
+ # make sure ids are numeric
+ if(ref $args{'ids'} eq 'ARRAY') {
+ for my $id (@{ $args{'ids'} }) {

No commit comments for this range

Something went wrong with that request. Please try again.