Adam has gone off to the hospital with a sore wrist.. so rather than
flooding irc and missing the paste link, I'm posting here:
Adam, I've stepped through the code after getting that breakpoint to
work...
Here's the lines of code that I think are relevant...
I don't think even one thread gets spawned here:
Padre::(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre.pm:95):
95: my $SINGLETON = undef;
DB<3>
Padre::(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre.pm:276):
276: 1;
DB<3>
main::(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/script/padre:138):
138: if ($PRELOAD) {
DB<3>
main::(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/script/padre:152):
152: my $ide = Padre->new(
153: files => \@ARGV,
154: session => $SESSION,
155: actionqueue => $ACTIONS,
156: startup_locale => $LOCALE,
157: ) or die "Failed to create Padre instance";
DB<3> b Padre::TaskManager::start_thread
Subroutine Padre::TaskManager::start_thread not found.
DB<4> n
main::(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/script/padre:160):
160: $ide->run;
DB<4> b Padre::TaskManager::start_thread
DB<5> c
Padre::TaskManager::start_thread(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskManager.pm:115):
115: TRACE( $_[0] ) if DEBUG;
DB<5> s
Padre::TaskManager::start_thread(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskManager.pm:116):
116: my $self = shift;
DB<5>
Padre::TaskManager::start_thread(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskManager.pm:117):
117: my $master = Padre::TaskThread->master;
DB<5>
Padre::TaskThread::master(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskThread.pm:43):
43: $SINGLETON or $SINGLETON = shift->new->spawn;
DB<5> s
Padre::TaskManager::start_thread(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskManager.pm:118):
118: my $worker = Padre::TaskWorker->new->spawn;
DB<5> s
Padre::TaskWorker::new(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskWorker.pm:23):
23: my $class = shift;
DB<5>
Padre::TaskWorker::new(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskWorker.pm:24):
24: my $self = $class->SUPER::new(@_);
DB<5> s
Padre::TaskThread::new(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskThread.pm:61):
61: TRACE( $_[0] ) if DEBUG;
DB<5>
Padre::TaskThread::new(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskThread.pm:62):
62: bless {
63: wid => ++$SEQUENCE,
64: queue => Padre::TaskQueue->new,
DB<5>
Padre::TaskQueue::new(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskQueue.pm:21):
21: my @queue : shared = ();
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:32):
32: @_ > 2 && ref $_[2] or do {
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:36):
36: my (undef,$home_stash,$svref,@attrs) = @_;
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:38):
38: my $svtype = uc reftype($svref);
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:39):
39: my $pkgmeth;
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:40):
40: $pkgmeth = UNIVERSAL::can($home_stash,
"MODIFY_${svtype}_ATTRIBUTES")
41: if defined $home_stash && $home_stash ne '';
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:42):
42: my @badattrs;
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:43):
43: if ($pkgmeth) {
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:62):
62: @badattrs = _modify_attrs($svref, @attrs);
DB<5>
attributes::import(C:/strawberry/perl/lib/attributes.pm:64):
64: if (@badattrs) {
DB<5>
Padre::TaskQueue::new(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskQueue.pm:22):
22: return bless \@queue, $_[0];
DB<5>
Padre::TaskWorker::new(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskWorker.pm:27):
27: $self->{seen} = {};
DB<5> s
Padre::TaskWorker::new(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskWorker.pm:29):
29: return $self;
DB<5>
Padre::TaskThread::spawn(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskThread.pm:88):
88: TRACE( $_[0] ) if DEBUG;
DB<5>
Padre::TaskThread::spawn(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskThread.pm:89):
89: my $self = shift;
DB<5>
Padre::TaskThread::spawn(C:/Users/pete/Documents/Programming/Perl/padre/trunk/Padre/lib/Padre/TaskThread.pm:96):
96: $self,
97: )->tid;
DB<5>
Can't spawn "C:\strawberry\perl\bin\perl.exe": No error at dev line 127.
C:\Users\pete\Documents\Programming\Perl\padre\trunk\Padre>
Perl verson:
C:\Users\pete\Documents\Programming\Perl\padre\trunk\Padre>perl -v
This is perl, v5.10.0 built for MSWin32-x86-multi-thread
Copyright 1987-2007, Larry Wall
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
It's strawberry perl..
I might upgrade my version of strawberry here just to be sure.
Peter.
_______________________________________________
Padre-dev mailing list
Padre-dev@perlide.org
http://mail.perlide.org/mailman/listinfo/padre-dev
