OK, I've uninstalled Strawberry and installed the latest available on
the site, still 5.10 though.
Padre is seems to be running fine, insomuch as that it's not crashing at
start up and everything that wouldn't load up, such as syntax checking
directory tree etc are fine.
I guess it was something odd to do with my setup.
Peter.
On 29/01/2011 9:21 PM, Peter Lavender wrote:
> 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
_______________________________________________
Padre-dev mailing list
Padre-dev@perlide.org
http://mail.perlide.org/mailman/listinfo/padre-dev
