memory problems or something

I invoke the latest development P4 client so:

sub new 
{
  my $self = shift;
  my $logger = get_logger("PerforceClient");
  $logger->info("new PerforceClient"); 
  unless ( ref $self) 
  {
    my %args = _;
    $logger->debug("user :".$args);
    #
    # must have root as an argument
    my $objref = new P4;
    bless $objref, $self;
    $objref->ParseForms();
    if ( ! $objref->Connect() ) 
    {
      $logger->fatal("Failed to connect to
Perforce");
      return undef;
    } 

    $logger->debug( "Creating object" );
    $objref-> = "";
    $objref-> = "//depot";
    $logger->debug("user :".$args);
    $objref->setUser($args);
    $logger->debug("workspace
:".$args);
    my ($status)=$objref->setWorkingSpace(
$args );
    if ($status eq NB_FAIL)
    {
      $logger->fatal("Fail");
      return undef;
    }
    $objref->setDefaultRoot();
    $objref-> = $args  if exists(
$args );
    return $objref;
  }
}

sub setP4Client
{
  my ($self) = shift;
  my (%args) = _;
  my $logger = get_logger("SCMClient");
  $logger->debug("setting ");
  $logger->debug("user ".$args);
  my $p4 = PerforceClient->new( %args);
  $logger->debug("after new p4 client ".$p4);

  $self->=$p4;
  $logger->debug("after new p4 client
".$self->);

}

however, the line $self-> =$p4 causes the following
(worrying) 
perturbation on the last line. Remove that line and this
error message 
does not appear.

.2006/04/25 14:30:59 INFO> PerforceClientTests.pm:30 
Tests::PerforceClientTests::set_up - make_temporary_root
2006/04/25 14:30:59 DEBUG> PerforceClientTests.pm:34 
Tests::PerforceClientTests::set_up - tmpdir: 
C:\users\rday\hoperoot\trunk\autobuild\tests\tmp
2006/04/25 14:30:59 DEBUG> SCMClient.pm:42 SCMClient::new
- setting p4
2006/04/25 14:30:59 DEBUG> SCMClient.pm:78
SCMClient::setP4Client - 
setting
2006/04/25 14:30:59 DEBUG> SCMClient.pm:79
SCMClient::setP4Client - user 
build
2006/04/25 14:30:59 INFO> PerforceClient.pm:18
PerforceClient::new - new 
PerforceClient
2006/04/25 14:30:59 DEBUG> PerforceClient.pm:22
PerforceClient::new - user 
:build
2006/04/25 14:30:59 DEBUG> PerforceClient.pm:34
PerforceClient::new - 
Creating object
2006/04/25 14:30:59 DEBUG> PerforceClient.pm:37
PerforceClient::new - user 
:build
2006/04/25 14:30:59 DEBUG> PerforceClient.pm:39
PerforceClient::new - 
workspace :build-serenity
2006/04/25 14:30:59 DEBUG> PerforceClient.pm:191 
PerforceClient::setWorkingSpace - 
C:\users\rday\hoperoot\trunk\autobuild\tests\tmp
2006/04/25 14:30:59 DEBUG> PerforceClient.pm:198 
PerforceClient::getClientRoot - workingspace: 
C:\users\rday\hoperoot\trunk\autobuild\tests\tmp
2006/04/25 14:30:59 INFO> PerforceClient.pm:223 
PerforceClient::setDefaultRoot - 
C:\users\rday\hoperoot\trunk\autobuild\tests\tmp
2006/04/25 14:30:59 DEBUG> SCMClient.pm:81
SCMClient::setP4Client - after 
new p4 client PerforceClient=HASH(0x2176b24)
2006/04/25 14:30:59 DEBUG> SCMClient.pm:85
SCMClient::setP4Client - after 
new p4 client PerforceClient=HASH(0x2176b24)
2006/04/25 14:30:59 INFO> PerforceClient.pm:243
PerforceClient::setRoot - 
root:
C:\users\rday\hoperoot\trunk\autobuild\tests\tmp
2006/04/25 14:30:59 INFO> PerforceClientTests.pm:59 
Tests::PerforceClientTests::test_RandomTest - start

Time:  0 wallclock secs ( 0.02 usr +  0.02 sys =  0.03 CPU)

OK (1 tests)
        (in cleanup) Internal error: Root Logger not
initialized. at 
c:/users/rday/tools/perl588_817/site/lib/Log/Log4perl/Logger
.pm line 554 
during global destruction.

I *think the p4 client is tramping over the memory
somewhere, although I'm 
not sure.

I'm Windows XP using this perl:

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)

Copyright 1987-2006, Larry Wall

Binary build 817 [257965] provided by ActiveState 
http://www.ActiveState.com

Built Mar 20 2006 17:54:25

_______________________________________________
p4perl mailing list
p4perlperforce.com

http://maillist.perforce.com/mailman/listinfo/p4perl

memory problems or something

Thread: memory problems or something