*** PerlQt/Qt.xs
--- PerlQt/Qt.xs
***************
*** 1822,1828 ****
      if(!o)
          XSRETURN_EMPTY;
      SmokeClass c( o->smoke, o->classId );
!     if(!c.hasVirtual() ) {
!       XSRETURN_EMPTY;
!    }
      mapPointer(obj, o, pointer_map, o->classId, 0);

  bool
--- 1822,1828 ----
      if(!o)
          XSRETURN_EMPTY;
      SmokeClass c( o->smoke, o->classId );
!  #   if(!c.hasVirtual() ) {
!  #    XSRETURN_EMPTY;
!  #  }
      mapPointer(obj, o, pointer_map, o->classId, 0);

  bool