Are my error, just spotted that my next line was
$main::html=Html::App->new;
$stts=$main::html->ReadParse(*main::input);
*main::input wasn't being initialized each time. the inconsistencey was
nothing to do with the same hash ref being used. I assumed this when I was
trying to debug it and the same hash ref kept appearing.
Is there any way of initialling a *main::input in one go
i.e *main::input=(); doesn't work
I am now doing $main::input=();
%main::input=();
@main::input=();
Thanks
John
-----Original Message-----
From: Stas Bekman [mailto:[EMAIL PROTECTED]]
Sent: 24 December 1999 10:14
To: MOORHOUSE, John NW Group Risk
Cc: '[EMAIL PROTECTED]'
Subject: Re: What am I doing wrong
> my startup script has the line
> use Html::App;
>
> my main script calls this
> use strict;
> use Html::App;
> use DBI;
>
> my ($cnt,$stts)=();
> $main::html=();
> $main::html=Html::App->new;
two "style" mistakes (harmless in this case):
* $main::html is a scalar, you shouldn't assign list to it!
should be $main::html = '';
* why doing the inialization twice?
$main::html=();
$main::html=Html::App->new;
the last statement is enough.
> Html::App contains
> package Html::App;
> sub new {
> my $class = shift;
> my $self = {};
> print STDERR "$class, $self\n";
> bless($self, $class);
> return $self;
> }
>
> In the error log I get a print of the class and hash id
> The problem is that the hash id is the same after continuous runs.
Therefore
> repeat refreshes results in unusual behaviour. I think there must be some
> closure some where but can't spot it.
> Does any one out there know the reason??
run the server in a single mode (httpd -X) and test. Also I hope you test
with warnings On, am I right? Note that it's possible that in -X mode, you
will get the same HASH(0x...) because the variable gets destroyed and than
nothing stops it to use the same memory block! I wouldn't rely on the test
you do. Instead I would put in different from invocation to
invocation stuff and print it out. Also you can work with debugger of
course! (see perl.apache.org/guide/debug.html)
>
>
> Thanks in advance
> John
>
> ********************************************************************
> This e-mail is intended only for the addressee named above.
> As this e-mail may contain confidential or privileged information,
> if you are not the named addressee, you are not authorised to
> retain, read, copy or disseminate this message or any part of it.
> ********************************************************************
>
>
_______________________________________________________________________
Stas Bekman mailto:[EMAIL PROTECTED] http://www.stason.org/stas
Perl,CGI,Apache,Linux,Web,Java,PC http://www.stason.org/stas/TULARC
perl.apache.org modperl.sourcegarden.org perlmonth.com perl.org
single o-> + single o-+ = singlesheaven http://www.singlesheaven.com
********************************************************************
This e-mail is intended only for the addressee named above.
As this e-mail may contain confidential or privileged information,
if you are not the named addressee, you are not authorised to
retain, read, copy or disseminate this message or any part of it.
********************************************************************
