Quote:
I think maybe you misunderstood the point I was making. $DIRECTORY is a global used within GT::Session::File and is not part of the object that GT::Session::File creates, therefore it will not show in a dump of the object.Quote:
will not show in a dump of the object.
Here is the bugfix:
in new() method instead of following code:
Code:
# We got passed some options, possibly a session id. if (@_ > 1) {
my $opts = $self->common_param(@_);
foreach (keys %$opts) {
exists $self->{$_} and ($self->{$_} = $opts->{$_});
}
if ($self->{directory}) {
$DIRECTORY = $self->{directory};
}
}
the following is used:
Code:
# We got passed some options, possibly a session id. if (@_ > 1) {
my $opts = $self->common_param(@_);
foreach (keys %$opts) {
exists $self->{$_} and ($self->{$_} = $opts->{$_});
}
if ($self->{directory}) {
$DIRECTORY = $self->{directory};
}
}
$self->{directory} = $DIRECTORY unless $self->{directory};
Tried & works.

Bug nr.4. corrected.
Best regards,
Webmaster33
Paid Support from Webmaster33. Expert in Perl programming & Gossamer Threads applications. (click here for prices)
Webmaster33's products (upd.2004.09.26) | Private message | Contact me | Was my post helpful? Donate my help...