Local patch MooseX-SetOnce for Moose 1.900+

(Portage version: 2.2.0_alpha18/git/Linux x86_64, RepoMan options: --force, signed Manifest commit with key 0A0CB301)

4 files changed, 101 insertions, 14 deletions

diff --git a/dev-perl/MooseX-SetOnce/ChangeLog b/dev-perl/MooseX-SetOnce/ChangeLog
index f8192b073..974fe8ffa 100644
--- a/dev-perl/MooseX-SetOnce/ChangeLog
+++ b/dev-perl/MooseX-SetOnce/ChangeLog
@@ -2,6 +2,14 @@
 # Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2
 # $Header: $
 
+*MooseX-SetOnce-0.100.472-r1 (22 Jan 2011)
+
+  22 Jan 2011; Kent Fredric <kentfredric@gmail.com>
+  +MooseX-SetOnce-0.100.472-r1.ebuild,
+  +files/0.100472/0001-Fix-for-Moose-1.900-but-should-work-since-Class-MOP-.pat
+  ch:
+  Inhouse fix pending upstream fix
+
 *MooseX-SetOnce-0.100.472 (22 Jan 2011)
 *MooseX-SetOnce-0.100.471 (22 Jan 2011)
 
diff --git a/dev-perl/MooseX-SetOnce/Manifest b/dev-perl/MooseX-SetOnce/Manifest
index 4d42462d9..ec46cc44b 100644
--- a/dev-perl/MooseX-SetOnce/Manifest
+++ b/dev-perl/MooseX-SetOnce/Manifest
@@ -1,26 +1,28 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA256
 
+AUX 0.100472/0001-Fix-for-Moose-1.900-but-should-work-since-Class-MOP-.patch 1326 RMD160 82fcf5bde82b5b0f374f674232e5bbf616b15017 SHA1 e2fb3511259084075bd2e4efc4a500ea2f1d9f04 SHA256 37d24cdef72d12106c68a7e9c30fa19618e01cf25d9c9c53d6733a0964731a3e
 DIST MooseX-SetOnce-0.100471.tar.gz 9500 RMD160 15f1227caba17f3cd41d84c8cacff8cdf01ee1d0 SHA1 6a2f46a997cf16933d647dba47cb6c7947d9847f SHA256 97ecb32156cf852fa9fa318f233e403824865d4e710d412e069c84619e59672e
 DIST MooseX-SetOnce-0.100472.tar.gz 10665 RMD160 b40cee216e816075f13ebbc948ec81cce44dfe0b SHA1 8f5519c85389705d7f73dc431264cef92587ec58 SHA256 1281fe01d965c7828a72937bf84f57657b34e75eff82ceb514959e885d62bece
 EBUILD MooseX-SetOnce-0.100.471.ebuild 521 RMD160 340e0114de272befec0acee9019a3835c40730d7 SHA1 8c8afac6a12038c7919a80c9ef5d84155161ab4e SHA256 17fd9dd4aae5dfd7540aa1d2bcb8f74bf6b66535796853d3131a35814825fc9a
+EBUILD MooseX-SetOnce-0.100.472-r1.ebuild 645 RMD160 bcf66b8dbe7c0566a5280606d9a406b956a1c73c SHA1 110d6b40c2f4df9c4251b096b961b8cf0407bfd2 SHA256 14c16aaf678484f65b87cd4ab847ec4a18fffe183aed57c617cbb4b9d2191fed
 EBUILD MooseX-SetOnce-0.100.472.ebuild 535 RMD160 c751ff4e869b903913a4570f589af86800bd5526 SHA1 df1be5683f38354011bf3b187bd7fb88da205a9f SHA256 c1f8d7fee541882c6e69a2c17f85bfdcf4b7bc931482a6472a2ba0b78b6ce3a2
-MISC ChangeLog 715 RMD160 963a808763d4c997ef1a917fedf0fe0b78aab378 SHA1 9f88dcb8ad5712493b7a35ec955e991f509e76a8 SHA256 cdba4ced16c37dc879d9d94b9388ca8eb1ba230bbbc6e032b6ec11a81088b977
+MISC ChangeLog 972 RMD160 de1df5cd9ef77bae2b0e33ac61a1d9d4c82b32eb SHA1 391f6547c8253f78958f9ae54716253a0ba4118d SHA256 d357f9015164489d9b6217893418217c75c10d707e374137256ec82da3cdd56d
 MISC metadata.xml 275 RMD160 d7980d8f5e665a018b30c566bba02d451db23047 SHA1 a7a485be470b9fbb06c3ce88dffce811ffce282c SHA256 45455d078243c6abc929fd08947c2728292cb506ca452ab4ec33221cd7cb6f6c
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v2.0.17 (GNU/Linux)
 
-iQIcBAEBCAAGBQJNOsyVAAoJEGAnLswKDLMBSIQP/1BE8ebAIW8Xt+QaQq3dIH9B
-DFgbpku7WUIn8VfEslAOOOczRfWEDX0nmSSJpvk3cVgYprb8mtXPiYZ9Z9zol747
-LLuuTKLnTWgV7DDJEyRgiQVBvQ/B/ECACjkVQNDHtL724ovLqgylt/HsmJZ3xrSW
-wIhS9UYCa88W4BHOQryKkTqY3SXKcSVV8E3JTCV3LVaiwEMSGmTHcaZd7cjj+vnH
-/ZjRdJxuRawMgJDh9fyVNBwWorY1F4dManyejSl20tjn+ECZUe5lKBlWNxLod+ik
-pwB3OXrlDPioJwIZUhxJ4u6zYpOb13SUBmg3b8egkC8ienQk4m/0TLaPlVuqc3vw
-SlpwdTJ9sM43oIp9U/rY/V85pWBmpg1rjIWau5+40AHtYCCc0JX1RXXVJaceBZko
-kvWkFzGfQuB1Pc8Xn4avdUKYtB7ROZMDzImMRRwTUfVtARNjoo85JuRo8n8/0HOm
-Wp6yvQj4bIw+EAZXOk2VDPmPNAZzvYc7rD8rEQtdcGzwe3tvTdvmEdqMx5MmCe1u
-rxAqo4tUOmbvSfJh89w2r6FuWvgBhCZq+/pCTj482InNOy7yhQJ/Oc1vDj11/Usv
-wCTY7hS+dYV/soWZ4QAPnbk6MaFixMV5CSimc7EQKMwwkBlc7g/eDVDEQeBzeDVx
-qHfRMig8jpXTtbhmvVpf
-=KIwW
+iQIcBAEBCAAGBQJNOtEjAAoJEGAnLswKDLMBBxYP/jwVLVOdZbERBSV70UPQ/jtr
+Kk5svvFjf+776dAqfWu3DLCnHAH+gp4eZkrTc+4yszrHsw9+/qpZ8kXstTGaBFZZ
+N8dlKMLtNCzVrBFDj3oBzLppkHh+RL8j8SM86XNXnggahaPO1sIKohaLWFR0a+Tb
+j3dUGSuIfYEKdyukM7W7qylIKU88f4W0Px0N6Uod68TpnF5TE87VygHilvQZR6a/
+ES0fo8Mk3hZzhsXdZz5ztJGNWy6R2RqfapuEAlvX9FSK6l79rSuSSTsuJh+4x+Kj
+2k8v72lkz6C6LYiIM+BotQCGA2cOAxqgYrhdb/mcSAVTBdk8Wt1TURh6JXoMyQxF
+8Sk0y907CpEjRLb4naRmDVb+SVRRGF4VUXowtLNLlH4saK5ck4Wzx4xDZVGoxmqj
+yNlOPojmPvl9ZUfbOkztCaI6vO9owdL9nrW3o4emff5lt2ajk5iI14A/5aDLF69P
+3fIqA3oTE1kv/7xijJcftmEypfAYWQdG4Xmjc4caecSZS+90+jPDOYI3Kj15ugog
+VzPtrr6iCudNohVvJB1u/+8NwljV5Uk4UeJI6uvTo9auEOzrxC6hQfutHq0DnP6W
+tjIj4BkaLkt+GP//J2odcWFUq5My8IilMxctw4BYBpSLeEWresGlWx1SK66NeiQV
+f8AkIID34mY1/Sgz3iDY
+=wWHL
 -----END PGP SIGNATURE-----
diff --git a/dev-perl/MooseX-SetOnce/MooseX-SetOnce-0.100.472-r1.ebuild b/dev-perl/MooseX-SetOnce/MooseX-SetOnce-0.100.472-r1.ebuild
new file mode 100644
index 000000000..534469ec4
--- /dev/null
+++ b/dev-perl/MooseX-SetOnce/MooseX-SetOnce-0.100.472-r1.ebuild
@@ -0,0 +1,34 @@
+# Copyright 1999-2011 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: $
+
+EAPI=3
+
+MODULE_AUTHOR=RJBS
+MODULE_VERSION="0.100472"
+inherit perl-module
+
+DESCRIPTION="write-once, read-many attributes for Moose"
+
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+IUSE=""
+PATCHES=(
+	"${FILESDIR}/${MODULE_VERSION}/0001-Fix-for-Moose-1.900-but-should-work-since-Class-MOP-.patch"
+);
+COMMON_DEPEND="
+	dev-perl/Try-Tiny
+	>=dev-perl/Moose-1.900
+"
+DEPEND="
+	${COMMON_DEPEND}
+	>=virtual/perl-ExtUtils-MakeMaker-6.31
+	test? (
+		>=virtual/perl-Test-Simple-0.96
+		dev-perl/Test-Fatal
+	)
+"
+RDEPEND="
+	${COMMON_DEPEND}
+"
+SRC_TEST="do"
diff --git a/dev-perl/MooseX-SetOnce/files/0.100472/0001-Fix-for-Moose-1.900-but-should-work-since-Class-MOP-.patch b/dev-perl/MooseX-SetOnce/files/0.100472/0001-Fix-for-Moose-1.900-but-should-work-since-Class-MOP-.patch
new file mode 100644
index 000000000..5c41ea40f
--- /dev/null
+++ b/dev-perl/MooseX-SetOnce/files/0.100472/0001-Fix-for-Moose-1.900-but-should-work-since-Class-MOP-.patch
@@ -0,0 +1,43 @@
+diff --git a/MooseX-SetOnce-0.100472/lib/MooseX/SetOnce.pm b/MooseX-SetOnce-0.100472-fixed/lib/MooseX/SetOnce.pm
+index 6112c8b..6de3a52 100644
+--- a/MooseX-SetOnce-0.100472/lib/MooseX/SetOnce.pm
++++ b/MooseX-SetOnce-0.100472-fixed/lib/MooseX/SetOnce.pm
+@@ -21,33 +21,11 @@ sub _ensure_unset {
+     if $self->has_value($instance);
+ }
+ 
+-around accessor_metaclass => sub {
+-  my ($orig, $self, @rest) = @_;
+-
+-  return Moose::Meta::Class->create_anon_class(
+-    superclasses => [ $self->$orig(@_) ],
+-    roles => [ 'MooseX::SetOnce::Accessor' ],
+-    cache => 1
+-  )->name
+-};
+-
+-package MooseX::SetOnce::Accessor;
+-BEGIN {
+-  $MooseX::SetOnce::Accessor::VERSION = '0.100472';
+-}
+-use Moose::Role 0.90;
+-
+-around _inline_store => sub {
+-  my ($orig, $self, $instance, $value) = @_;
+-
+-  my $code = $self->$orig($instance, $value);
+-  $code = sprintf qq[%s->meta->get_attribute("%s")->_ensure_unset(%s);\n%s],
+-    $instance,
+-    quotemeta($self->associated_attribute->name),
+-    $instance,
+-    $code;
+-
+-  return $code;
++around _inline_set_value => sub {
++  my ( $orig, $self, @args ) = @_;
++  my (@lines) = $self->$orig(@args);
++  unshift @lines, sprintf q{$_[0]->meta->get_attribute("%s")->_ensure_unset($_[0]);}, quotemeta( $self->name );
++  return @lines;
+ };
+ 
+ package Moose::Meta::Attribute::Custom::Trait::SetOnce;