projects
/
gitmo/MooseX-Types.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
5a4d520
)
Don't assume that $search_tc->parent returns an object!
Dave Rolsky [Sat, 19 May 2012 03:53:15 +0000 (22:53 -0500)]
lib/MooseX/Types/TypeDecorator.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/MooseX/Types/TypeDecorator.pm
b/lib/MooseX/Types/TypeDecorator.pm
index
16e4fe0
..
7bbfa32
100644
(file)
--- a/
lib/MooseX/Types/TypeDecorator.pm
+++ b/
lib/MooseX/Types/TypeDecorator.pm
@@
-188,7
+188,7
@@
sub _try_delegate {
last;
}
$search_tc = $search_tc->parent;
- last unless $search_tc->is_subtype_of('Object');
+ last unless $search_tc && $search_tc->is_subtype_of('Object');
}
}