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;
Html::App contains
package Html::App;
sub new {
my $class = shift;
my $self = {};
print STDERR "$class,
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!
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
"MOORHOUSE," == MOORHOUSE, John NW Group Risk
[EMAIL PROTECTED] writes:
MOORHOUSE, Is there any way of initialling a *main::input in one go
MOORHOUSE, i.e *main::input=(); doesn't work
This is already heading down the dangerous path. Why are you using
a symbol-table variable if you
