| Subject: | undefined subroutine &main:: with PerlQt-2.105 |
I hope you can help. I'm porting PerlQt-2.105 (from CPAN) onto a Sharp
Zaurus SL-5500 PDA. It supports Qt ver 2.3.2 and things should
be reasonably smooth. Having modified the PerlQt source to
notice whatever features of Qt are specified, my Qt.so seems to now
have all the correct symbols linked at run time. When I run
it with this test.pl ...
#!/mnt/pkgs/perl/perl5.8.0/bin/perl
#use Qt 2;
use Qt;
import Qt::app;
$myLabel = new Qt::Label("Hello world", 0);
$myLabel->resize(120, 30);
$app->setMainWidget($myLabel);
$myLabel->show();
exit $app->exec();
I get ...
# ./test.pl
Undefined subroutine &main:: called at ./test.pl line 5.
Segmentation fault
I've used "import" as the documented example suggested. I don't know
how to deal with this. I had a look in pigboot.c which has ...
extern "C" XS(boot_Qt) {
dXSARGS;
#ifdef PERL_OBJECT
::pPerl = pPerl;
#endif
pig_symbol_exchange(PIG_EXPORTTABLE(pig), PIG_IMPORTTABLE(pig), "Qt");
__pig_module_used("Qt::app");
__pig_module_used("Qt::signals");
__pig_module_used("Qt::slots");
newXS((char *)"Qt::signals::import", PIG_Qt__signals_import, (char
*)__FILE__);
newXS((char *)"Qt::slots::import", PIG_Qt__slots_import, (char
*)__FILE__);
pig_load_classinfo(PIG_module);
pig_load_constants("Qt", PIG_constant_Qt);
// newXS("Qt::Application::new", PIG_QApplication_new, __FILE__);
newXS((char *)"Qt::app::import", PIG_app_import, (char *)__FILE__);
newXS((char *)"Qt::import", PIG_Qt_import, (char *)__FILE__);
XSRETURN_UNDEF;
}
Is this where I should be looking? Can you help?