Repository: lucy-clownfish Updated Branches: refs/heads/master 9baec9f6d -> 7a6825dc0
Fix bad Perl method name. Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/7a6825dc Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/7a6825dc Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/7a6825dc Branch: refs/heads/master Commit: 7a6825dc0e60afcf109fba0b3c4180c2b0fd8172 Parents: 9baec9f Author: Marvin Humphrey <[email protected]> Authored: Sat May 9 15:24:38 2015 -0700 Committer: Marvin Humphrey <[email protected]> Committed: Sat May 9 15:46:38 2015 -0700 ---------------------------------------------------------------------- compiler/perl/lib/Clownfish/CFC.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/7a6825dc/compiler/perl/lib/Clownfish/CFC.pm ---------------------------------------------------------------------- diff --git a/compiler/perl/lib/Clownfish/CFC.pm b/compiler/perl/lib/Clownfish/CFC.pm index c71c63d..738acd3 100644 --- a/compiler/perl/lib/Clownfish/CFC.pm +++ b/compiler/perl/lib/Clownfish/CFC.pm @@ -265,7 +265,7 @@ BEGIN { XSLoader::load( 'Clownfish::CFC', '0.4.0' ) } for my $class (@{ $self->ordered_classes }) { next if !$class->included || $class->inert; - my $class_name = $class->get_class_name; + my $class_name = $class->get_name; my $rt_class = Clownfish::Class->fetch_class($class_name) or die("Class $class_name not found");
