Index: branches/cones-final/perllib/Polymake/Core/CPlusPlus.pm
===================================================================
--- a/branches/cones-final/perllib/Polymake/Core/CPlusPlus.pm
+++ b/branches/cones-final/perllib/Polymake/Core/CPlusPlus.pm
@@ -647,5 +647,7 @@
    my $func_descr=pop;
    my $func=$self->is_instance_of;
-   ($self->func_ptr_type=demangle($func_descr->func_ptr_type)) =~ s/pm::type2type<\s* ($balanced_re) \(\) \s* ($balanced_re) >/$1$2/xo;
+   $self->func_ptr_type = demangle($func_descr->func_ptr_type);
+   $self->func_ptr_type =~ s/pm::type2type<\s* ($balanced_re) \(\) \s* ($balanced_re) >/$1$2/xo
+      or $self->func_ptr_type =~ s/pm::type2type<\s* ($balanced_re) >/$1/xo;
    $self->func_ptr_type =~ s/(?<![\w:])pm::(perl::(?:Object(?:Type)?|OptionSet|Scalar|Array|Hash))(?![\w:])/$1/g;
    my $i=0;