[p4perl] inheritance & p4

[Roger Day]

To answer my own question, upgrading to the latest version fixed the 
problem.

Roger
At 30/09/2005 10:34:43, p4perl-bounces at perforce.com wrote:
>I'm trying to use the p4 class with inheritance in perl however it's not
>working. Below is a fragment of code - it never gets to the 4th hello
>statement. I'm pretty sure this used to work. I'm using P4-3.4804. I am
>doing something wrong or should I be using a different P4?
>
>sub new
>{
>my $self = shift;
>my $log = Log::Log4perl->get_logger("PeforceClient");
>$log->info("new PeforceCLient");
>unless ( ref $self)
>{
>$log->debug( "hello 1\n" );
>#
># must have root as an argument
>my $objref = new P4;
>bless $objref, $self;
>$log->debug( "hello 2" );
>$objref->ParseForms();
>$objref->Connect() or die("Failed to connect to Perforce");
>$log->debug( "hello 3" );
>
>$objref->{log} = $log;
>
>$log->debug( "hello 4" );
>_______________________________________________
>p4perl mailing list
>p4perl at perforce.com
>http://maillist.perforce.com/mailman/listinfo/p4perl
>