Hi,
Im unsure if this is 100% the correct list, but I am using Perl to form
dynamic web pages (CGI afaik?) so I'll give it a shot.
I have a script which implements a try-catch block. Before entering the
try portion of this block, I am defining a variable and placing some
content into it, which is a hash table.
The problem seems to be that when I go to access this variable inside the
try block, and subsequently any catch blocks, or the otherwise block, the
variable seems to be empty.
Here is a snip of the code I am using:
my $session = new App($query, $thisModule);
try {
$session->{AccessControl}->checkAccess();
&$method($session);
} catch App::AccessControlException with {
my $e = shift;
print "Content-type: text/plain\n\n";
print "An access control exception has occurred.\n\n";
print Dumper($e);
} otherwise {
my $e = shift;
print "Content-type: text/plain\n\n";
print "An error has occurred.";
print Dumper($e);
}
The first line creates a new instance of an object which contains some
runtime variables and other content based on the request being performed.
If I chuck the following line in immediately after the first line:
warn(Dumper($session));
I see the following in my webserver log file:
$VAR1 = bless( {
'thisModule' => 'module',
'Request' => {
'params' => [
'b',
'c'
],
'what' => 'a'
},
'cgiQuery' => bless( {
'.parameters' => [],
'use_tempfile' => 1,
'.charset' => 'ISO-8859-1',
'.fieldnames' => {},
'escape' => 1
}, 'CGI' )
}, 'App' );
This is fine, its what I want to see.
But if I place this Dumper line inside the try block, I only see the
following:
$VAR1 = bless( {}, 'App' );
So it appears that the variable has no content inside the try block.
I dont see any complaints about the variable being undefined, so it
obviously exists, just not its content.
Can anyone think of a reason, or does anyone know the reason, why this
would be occurring?
Let me know if any further details are needed, or if you know of a better
list to post this question.
Thanks,
Tom
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
