[protobuf-perl commit] r167 - Fix deprecation warnings with latest Moose (0.76)

[codesite...@google.com]

Author: davidsansome
Date: Tue Apr 28 07:39:34 2009
New Revision: 167

Modified:
trunk/perl/lib/Protobuf.pm
trunk/perl/lib/Protobuf/Meta/Message.pm

Log:
Fix deprecation warnings with latest Moose (0.76)

Modified: trunk/perl/lib/Protobuf.pm
==============================================================================
--- trunk/perl/lib/Protobuf.pm (original)
+++ trunk/perl/lib/Protobuf.pm Tue Apr 28 07:39:34 2009
@@ -121,7 +121,7 @@
class => $name,
);

- $c->make_immutable;
+ $c->make_immutable( inline_constructor => 0 );

return $c;
}

Modified: trunk/perl/lib/Protobuf/Meta/Message.pm
==============================================================================
--- trunk/perl/lib/Protobuf/Meta/Message.pm (original)
+++ trunk/perl/lib/Protobuf/Meta/Message.pm Tue Apr 28 07:39:34 2009
@@ -194,7 +194,7 @@

return sort { $a->field->number <=> $b->field->number }
grep { $_->does("Protobuf::Attribute::Field") }
- $self->compute_all_applicable_attributes;
+ $self->get_all_attributes;
}

sub protobuf_extra_attribute {