[Bps-public-commit] lcore branch, master, updated. 0bac9867257023db5ed4a8a65a6e5cd983059674

[clkao at bestpractical.com]

The branch, master has been updated
       via  0bac9867257023db5ed4a8a65a6e5cd983059674 (commit)
      from  82525d2533a724a54e21f7329be7089b829755e9 (commit)

Summary of changes:
 lib/LCore/Expression/TypedApplication.pm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 0bac9867257023db5ed4a8a65a6e5cd983059674
Author: Chia-liang Kao <clkao at clkao.org>
Date:   Wed Sep 2 16:09:41 2009 +0800

    unbreak typedapplication for arg expression with unknown return type.

diff --git a/lib/LCore/Expression/TypedApplication.pm b/lib/LCore/Expression/TypedApplication.pm
index 1eed41c..839b69e 100644
--- a/lib/LCore/Expression/TypedApplication.pm
+++ b/lib/LCore/Expression/TypedApplication.pm
@@ -47,7 +47,8 @@ before 'mk_expression' => sub {
 sub _get_arg_return_type {
     my ($self, $env, $arg) = @_;
     return unless UNIVERSAL::can($arg, 'get_return_type');
-    return Moose::Util::TypeConstraints::find_or_create_isa_type_constraint( $arg->get_return_type($env) );
+    my $r = $arg->get_return_type($env) or return;
+    return Moose::Util::TypeConstraints::find_or_create_isa_type_constraint( $r );
 }
 
 no Moose;

-----------------------------------------------------------------------